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000000 
000000 



TSKM2A: 



. TITLE TSKM2A — Keyboard command routines 

. ENABL LC 

. DSABL GBL 

. CSECT TSKM2A 



TSKM2A is the portion of TSKMON that contains the actual code 
to implement each keyboard command that is processed by TSKMON, 

Copyright 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985, 1986, 1987, 19SS. 
S&H Computer Systems, Inc, 
Nashville, Tennessee 



Macro calls 

. liCALL 
. MCALL 
. HCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 



CSISPC, . CRRG, . ELRO 

READW, . TTYiN, . TTYOUT, . TWAIT 

CSIGEN 

GTLIN 

PRINT, . CLOSE, . LOOKUP, . CSTAT 

WRITW, . ENTER 

FPROT 



Global definitions 



GLOBL 


TSKM2A, 


GLOBL 


CMDFRM, 


GLOBL 


DLCEMT, 


GLOBL 


CMDRST, 


GLOBL 


CMDTIM, 


GLOBL 


CMDALC, 


GLOBL 


CMDPAU, 


GLOBL 


CMDBOT, 



CMDOFF 

CMDDSN, PRGALL 

ALCDEV, CMDINS, CMDSPN, CMDRSM, CMDYEL 

CMDSND, CMDFMT, CMDDAT 

CMDMNT, CMDMON, CMDDMT, CMDDSP, CMDASN 

CMDDLC, OPRCMD, CMDSPO, CMDKIL, CMDREM 

CMDDET, CMDINI, CMDSQZ 

CMDSHT 



Global references 



FORCEO 
EM*SND, EM*DNR 



GLOBL TMSSAl, TM*SA2, TM*SA3, TM*SA4, SKPSPC, SKPDLM 

GLOBL SWPCHN, SEGCHN, INDTSV, LWINDO 

GLOBL *SCCA, AF$CCA, AF*NPW 

GLOBL AF*DUP, AF*IND, AF*UCL, AF*SET, 

GLOBL CFSTOP, CFSTRT, EM*ALC, EM«NFW, 

GLOBL SDFHD, AF*TPO, EMfCSE, WLDNAM 

GLOBL AF*PLK, AF*DBG, EM*LDI, EM«NLN 

GLOBL PO*NFW, PO*BYP, PO*ALC, CKSYPV, CKACOJ, PRIVSO 

GLOBL PESO, PFCO, PVNPW, PRIVCO 

GLOBL CLRPRV, EM*FNI, EM«ITF, INPADR, 

GLOBL CDBUF, CDGET, INGADR, INGEMT, ID 

GLOBL *VNOTT, SDNAME, DMYDEV 

GLOBL CORUSR, LSW, SERFLG 

GLOBL LSTSPL, SOPALC 

GLOBL SOPDAT, SOPTIM 

GLOBL ERRLOC 

GLOBL PO*DET, EM*DFT, PO*SND 

GLOBL LPARNT 

GLOBL TMTOTH, TMUSRH, TMIOWH, LDMNT 

GLOBL R. GSIZ, RS. GBL, RS. PVT, R. NAME, RS. CRR, RS. EGR 

GLOBL EM«UAR, EM*UER, R. GSTS 



INPEMT, OPTLST 
[BUF, PRVOPT 
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. GLOBL 


TMSWTH, TMIDLH.- 


TMIOH, TMSWFH, LDCLEN 




. GLOBL 


EM* I AD, EM^ATF, 


EM*WLD 




. GLOBL 


EM«SSY, EM*NID, 


QHDMSl, QHDMS2, EM*OLO 




. GLOBL 


GENMON, JS*OFF, 


AF*MEM, AF*BYA 




. GLOBL 


EM*DAA, EM*DIU, 


CHKALC 




. GLOBL 


*NOIN 






. GLOBL 


AF*SCA 






. GLOBL 


NUMON 






. GLOBL 


DOASGN, LSW9 






. GLOBL 


*PRGLK, LSW5, PVON 




. GLOBL 


ALDEMT, TALEMT 






. GLOBL 


LSTDL, FSTDL, *DETCH 




. GLOBL 


LPROJ, LPROG, LUNAME 




. GLOBL 


LCPUHI,LCPULO. 


LCONTM, fCTRLS 




. GLOBL 


STPFLG. TOTON. SPLCHN 




. GLOBL 


CFBUF. CCLSAV, KMNCHN 




. GLOBL 


MINTIM, LSECPT, 


MAXSEC 




. GLOBL 


CASTBR, CASCBR, 


CASTBW, CASCUP 




. GLOBL 


CASTRO, CASTWO 






. GLOBL 


CTRLTT 






. GLOBL 


BOTDEV 






. GLOBL 


*INKMW, UFORM 






. GLOBL 


*CFABT, INDERR 






. GLOBL 


ASNTBL, *DILUP, 


CSHDEV, CSHDVN 




. GLOBL 


ATfLOG, AT*SI2, 


AT*DEV, AT*FIL, AT**SZ, AT*EXT 




. GLOBL 


ASNEND, LSW3 






. GLOBL 


LOFSPC, R50C0M 






. GLOBL 


EM«FOE 






. GLOBL 


LNPRIM, CW*50H, 


CONFIG 




. GLOBL 


*DOOFF 






. GLOBL 


C. CSW, C. DEVQ 






. GLOBL 


CD*DVU, CD*BAS, 


CD**SZ 




. GLOBL 


SCFOPN, «TTGAG 






. GLOBL 


SDSFCB, SD*DEL 






. GLOBL 


SDFLAG, SD*FLK, 


SD*WFM> SDFORM, SD*FLG 




. GLOBL 


LD*RON 






. GLOBL 


LDNAME, LDSIZE, 


LDFLAG, LDBASE, LDPDEV 




. GLOBL 


CFCHAN, LDDEVX 






. GLOBL 


CFPNT, *QUIET 






. GLOBL 


LSW4, SDSKIP, SDBU, SD*BAK 




. GLOBL 


SD*SNG, NFRESB 






. GLOBL 


SD*WID 






. GLOBL 


CFSPND 






. GLOBL 


LOGCHK 






. GLOBL 


LSTPL, SDCB, SDCBND 




. GLOBL 


DCTRD, DCCRD, DCTWR, DCCWR, ASNSRC 




. GLOBL 


SDCBSZ, LSTSL 






. GLOBL 


SYSDAT, SYTIMH, 


SYTIML 




, GLOBL 


TKISEC 






, GLOBL 


RESDEV 






. GLOBL 


LSW6, PF*SYS, PF^IOW 




. GLOBL 


INDSAV 






. GLOBL 


LSW7 






. GLOBL 


LOGFLG 






. GLOBL 


LF*WRT 






. GLOBL 


CVTUC 






. GLOBL 


CMDBUF, FAUMSG, 


RDCMD. CVTTAB, SEARCH 
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GLOBL INVQPT* FKILL> ABRTCF. I.MDABT. XAREA. FPRINT 

GLOBL PUSHCF> FILNAM, R50SAV 

GLOBL BLKO 

GLOBL ASKLNM, BADCMD, KCSIBF 

GLOBL ASDEX, KCSIMS, ASNOVF, GTRD50> R50BUF, R50LD0, MNTDEV, DMTARG 

GLOBL DEADEV, CHKMNT, CHKMTX, INFOMT, NOFLAG, MTOPHD, ILLCMD 

GLOBL R50LD, INVLDN, R50DSK, ACRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

GLOBL CKPR I V, AMBOPT. ACRDEC 

GLOBL PRTDEC 

GLOBL ACROCT, CSIMS1>P0PCF 

GLOBL CRLF, LOGCLS 

GLOBL DIVIDE 

GLOBL CPUAH, CPUAL 

GLOBL MNFLGS, MNBPC 

GLOBL DELSPC, MNBASE, MNTOP, MONHD, MONARl , NOPMGN, PMBUSY, f10NAR2 

GLOBL CHKDLM, SPLHD 

GLOBL DEVIDL, ALDEX, SPACTV, SPWFM, SPSNG 

GLOBL COAL. ALDBLK, COAD, SPFLG 

GLOBL SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NOOPTT, NSPFLG 

GLOBL BDLINi MSGBUF, NUMTBl. MSGEND> NOTON> GAGMSG, SPWIDE> SPNARO 

GLOBL YELEMT, LINFRE. DJABMS, DLMSG, INVTIM> DMTALL 

GLOBL SHTMSG, AUTHFN, SPLACT, DOSTOP, OFFEMT, KILFMT 

GLOBL OTHRON, SPLPND, STPASK 

GLOBL IIMVLDM, CS1MS4,MNTARG 

GLOBL OTRMNT. CHKDEV, DMTSUB, CMDCCL 

GLOBL SJEMT, RJEMT 

GLOBL PRTTIM. INVDEV, ALFN 

GLOBL DETHD, DETARG, RUNMS, NOFRDL, R50M0N, INVDAT, MUL32, COAF 

GLOBL ARSPRJ, AR*PRG, AR*CON, AR*CNT, AR*CPH, AR*CPL 

GLOBL AR**SZ, ARNRPB 

GLOBL PRTWRN, VLDSYS, fLOFCF 

GLOBL INSTBL, INSTBN, AF*NOW, AFSHIE, AF*NOI, II**SZ 

GLOBL AF*IOP, I I*NAM> I I*FLG, I I*PRV, I I*NPV 

GLOBL NMSGBF, *NOABT> BADBOT 
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4 




000012 


5 




000015 


6 




000040 


7 




000007 


8 




000011 


9 




000014 


10 




000400 


11 




132500 
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A^b&mbly constants 



LF 

CR 

BLANK 

DELL 

TAB 

FF 

BLKWDS 

WLDNAIi 



12 

15 

40 

07 

11 

14 

256. 

132500 



LINE FEED 

CARRIAGE RETURN 

ASCII SPACE 

ASCII BELL 

HORIZONTAL TAB 

FORM FEED 

# OF WORDS IN DISK BLOCK 

RAD50 /*/ (WILDCARD) 
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31 
32 
33 
34 
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Macro to cause a fatal error message to be printed. 



. MACRO 


FERR MSG 


MOV 


R5, -<SP) 


MOV 


MSG, R5 


CALL 


FPRINT 


MOV 


<SP)+, R5 


. ENDM 


FERR 



Macro to p-rint a fatal error message* clean up 
and then jump to RDCMD. 

. MACRO FABORT MSG 

MOV MSO< R5 

JMP FKILL 

. ENDM FABORT 



Macro to print a earning message 

. MACRO FWARN MSQ 

MOV R5, -<SP) 

MOV MSG, R5 

CALL PRTWRN 

MOV <SP)+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name = 1 to 4 character table name. 

NA = Number of arguments per table entry. 

. MACRO TBLDEF NAME, NA 

NARGS == NA 

. CSECT CMDV2A 

NAME'HD: .WORD 2#NA 

. ENDM TBLDEF 



Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG = Ascii name 

A, B, C = Set of option parameters to store in table ujith name. 



. MACRO CMDDEF STRNG, A, B, C 
CSECT NAME2A 



. IIF 
. IIF 



. ASCIZ /STRNG/ 
. CSECT CMDV2A 
. WORD L 
. WORD A 
QE. <NARGS-2> 
GE, <NARGS-3> 
. ENDM CMDDEF 



WORD 
WORD 



i POINTER TO NAME STRING 



B 
C 
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59 > Macro to end a set of table entries. ' 

60 ; 

61 . MACRO TBLEND 

62 . CSECT CMDV2A • 

63 . WORD 

64 . CSECT TSKM2A 

65 . ENDM TBLEND * 
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Data areas 



. ists i !i_ uaza areas 
Data areas; 



i 








2 








3 








4 








5 


000000 


000000 




6 


000002 


000000 




7 


000004 






8 


000020 






9 


000032 


003344 




10 


000034 


014724 


021145 


11 


000040 


070525 




12 


000042 


000000 




13 








14 








15 








16 


000044 


000 




17 


000045 


000 




18 








19 








20 








21 








22 


000046 


000 


126 


23 


000050 


000007 




24 


000052 


000000 




25 








26 








27 








28 


000054 


000 


126 


29 


000056 


000015 




30 


000060 


000000 




31 








32 








33 








34 


000062 


000 


126 


35 


000064 


000016 




36 


000066 


000000 




37 








38 








39 








40 


000070 


000000 


000170 



SQZDEV 


. WORD 





ALCIDV 


. WORD 





CINFO: 


. BLKW 


6. 


REMRDB 


. BLKW 


5 


R50ADD 


. RAD50 


/ADD/ 


R50DEL 


. RAD50 


/DELETE/ 


R50REM 


. RAD50 


/REM/ 


lATTRB 


. WORD 





i Byt( 


B data 





■> Name of device being squeezed 

; Name of 1st device on allocation list 

; Cstat information necessary for boot 



DMTNLG: . BYTE 
OFFNWF; . BYTE 
. EVEN 

Emt to delete a spool file 



DELEMT ; 



BYTE 
WORD 
WORD 



0, 126 

7 

O 



iFile ID goes here 



Emt to set spool HOLD mode 



SPHLEM: 



. BYTE 
. WORD 
, WORD 



O, 126 

15 





; Address of SDCB 



Emt to set spool NOHOLD mode 

SPNHEM: . BYTE 0, 126 
. WORD 16 
.WORD i Address of SDCB 

Time to wait for check spooler activity. 

TIMSPL: .WORD 0, 60. *2, i2 second timer 



I 
I 
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Tables of commands and options 

. SBTTL Tables of commands and options 





2 
3 






4 






5 


000074 




6 


000002 




7 


000010 




S 


000016 




9 


000024 




10 


000032 




11 


000040 




12 


000046 




13 


000054 




14 


000062 




15 


000070 




16 


000076 




17 


000104 




IS 


000112 




19 


000120 




20 


000126 




21 


000134 




22 


000142 




23 


000150 




24 


000156 




25 
26 
27 
28 






29 


000074 




30 


000162 




31 


000166 




32 
33 
34 


000172 




35 
36 






37 


000074 




38 


000176 




39 


000202 




40 


000206 




41 


000212 




42 


000216 




43 






44 
45 
46 






47 


000074 




48 


000222 




49 


000226 




50 
51 


000232 




52 




53 






54 






55 


000074 


56 


000236 




57 


000242 









Define option switches for the INSTALL ADD command 

TBLDEF INSi 2 

CMDDEF BYPASN. INSATR, AF*BYA 

CMDDEF DUP, INSATR, AF*DUP 

CMDDEF DEB»UG, INSATR, AF*DBO 

CMDDEF H I -K-GH, I NSATR , AF*H I E 

CMDDEF IND, INSATR, AF*IND 

CMDDEF I a*MAP , I NSATR , AF« I OP 

CMDDEF IO*PAGE, I NSATR, AF*IOP 

CMDDEF LOCK, I NSATR, AF$PLK 

CMDDEF MEM#LOCK, INSATR. AF*MEM 

CMDDEF NON I INTERACTIVE, INSATR, AF*NOI 

CMDDEF NOWA»IT, I NSATR, AF*NOW 

CMDDEF N0WI»NDOW, INSATR, AF*NPW 

CMDDEF PRIV#ILEGED. PRVOPT, 

CMDDEF SC*CA, INSATR, AFSCCA 

CMDDEF SETUP, INSATR, AF*SET 

CMDDEF SING«LECHAR, INSATR, AF*SCA 

CMDDEF T»RANSPARENT, INSATR, AF*TPO 

CMDDEF TSXUCL, INSATR, AF*UCL 

TBLEND 



Define option switches for the MOUNT command 

TBLDEF MTOP, 1 

CMDDEF WR#ITE, 

CMDDEF NOW#RITE, 1 
TBLEND 



Define option switches for the DISMOUNT command 

TBLDEF DMTQ, 1 

CMDDEF LOG, DMTLGQ 

CMDDEF NOLOG, DMTNLO 

CMDDEF WARN, DMTLGQ 

CMDDEF NOWARN, DMTNLQ 
TBLEND 



Define option switches for DETACH command 

TBLDEF DET, 1 

CMDDEF CH*ECK, DETCHK 

CMDDEF K I »LL, DETK I L 
TBLEND 



f 

f 



Options for the MONITOR command. 

TBLDEF MON, 1 

CMDDEF IO*WAIT, PF*IOW 

CMDDEF SY*STEM, PF*SYS 
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i 



58 000246 

59 

60 

61 

62 

63 000074 

64 000252 

65 000256 



TBLEND 



Options for the OFF <BYE.- KJOB.. LOGOFF) commands. 



TBLDEF OFF, 1 

CMDDEF N*OWARN, OFFNWN 

TBLEND 
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1 
2 
3 
4 
5 

6 000074 

7 000262 
S 000266 
9 000272 

10 000276 

11 000302 

12 000306 

13 000312 

14 000316 

15 000322 

16 000326 

17 000332 

18 000336 

19 000342 

20 000346 

21 000352 

22 000356 



Define options for the SPOOL command 

Entry 1 = Option name 

Entry 2 = Processing routine 

TBLDEF SPL, 1 

CMDDEF A*LI0N, SPLALN 

CMDDEF B*ACKUP, SPL BAK 

CMDDEF D-*ELETE, SPLDEL 

CMDDEF FL*AGPAGE, SPLFLG 

CMDDEF NOF#LAePAGE, SPLNFL 

CMDDEF F«ORM, SPLFRM 

CMDDEF H*OLD, SPLHLD 

CMDDEF NOH*OLD, 3PLNHL 

CMDDEF L»OCK, SPLLK 

CMDDEF M*ULTIPLE, SPLMUL 

CMDDEF NAttRROW, SPLNRW 

CMDDEF SK#IP, SPLSKP 

CMDDEF SI*NGLE> SPLSNC 

CMDDEF ST«ATUS, SPLSTA 

CMDDEF W*IDE, SPLWID 
TBLEND 
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6 
7 

8 000074 

9 000102 
10 000104 
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. 3BTTL PAUSE command 



THE PAUSE COMMAND IS USED TO SUSPEND EXECUTION TEMPORARILY 
WHILE PROCESSING A COMMAND FILE. 

WHEN THE PAUSE COMMAND IS FOUND EXECUTION IS SUSPENDED UNTIL 
THE USER ENTERS A CARRIAGE RETURN FROM THE KEYBOARD. 



016767 OOOOOOG 

001441 

004767 OOOOOOG 



OOOOOOG CMDPAU; MOV 

BEQ 
CALL 



CFPNT, CFSPND 

9* 

CFSTOP 



; SUSPEND COMMAND FILE 

; BR IF COMMAND FILE NOT RUNNING 

; Suspend file 



11 
12 
13 
14 

15 000110 

16 000116 

17 000120 
18 

19 
20 

21 000126 

22 000134 

23 000136 
24 

25 
26 

27 000144 

28 000152 

29 000156 

30 000162 
31 

32 
33 

34 000164 

35 000172 

36 000176 

37 000202 

38 000206 
39 

40 
41 
42 
43 

44 000212 

45 000216 

46 000220 

47 000222 

48 000226 

49 000230 

50 000232 

51 000236 



OOOOOOG OOOOOOG 
052761 OOOOOOG OOOOOOG 



032761 
001003 



032761 
001403 



120027 
001373 



042761 

016700 
004767 
005067 
000167 



124327 
001775 
005203 
122327 
001401 
005303 



OOOOOOG OOOOOOG 3«: 



Set command-file-abort flag so that command file execution will 
be aborted if control— C is typed in response to the pause. 

BIT #«SCCA, LSW5<R1 ) ;Is control-C abort override in effect? 
BNE 3« i Br if yes — Don't abort on control~C 

BIS #*CFABT, LSW6<Rl)i Abort command files if ctrl-C typed 

If TTY QUIET is set> print pause message for operator 

BIT #«QUIET, LSW4<Rl)i IS QUIET SET ON? 

BEQ 2* J BR IF NOT 

.PRINT #CMDBUF ; DISPLAY THE PAUSE COMMAND 

Print pause message and wait for response 



2$: 
1*: 



J PRINT PAUSE MESSAGE 

; ACCEPT A LINE OF INPUT 



0000 1: 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



9*: 



.PRINT #PAUMSG 
. TTYIN 

CMPB RO, #LF 

BNE 1* 

Restart the command file 



BIC #*CFABT, LSW6<R1); Clear command-file abort flag 

MOV CFSPND>RO i RESTART COMMAND FILE 

CALL CFSTRT 

CLR CFSPND 

JMP RDCMD 



. SBTTL DISPLAY command 



Display a line from within a command file. 



000040 



000040 



CMDDSP: 



1*: 



000167 OOOOOOG 



CMPB 

BEQ 

INC 

CMPB 

BEQ 

DEC 

. PRINT 

JMP 



-<R3), #' 

CMDDSP 

R3 

<R3)+,#' 

1* 

R3 

R3 

RDCMD 



; BACKUP OVER LEADING SPACES 

POINT TO FIRST SEPARATOR 

IS IT A SPACE? 

BR IF YES <SKIP IT) 

POINT TO 1ST SEPARATOR 

PRINT THE ARGUMENT OF THE DISPLAY COMMAND 



I 

I 
f 

I 

i 



i 
I 
f 
i 
€ 
i 
« 
i 



i 
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i 

2 
n 






4 
5 
6 
7 


000242 


004767 


OOOOOOG 


8 


000246 


105067 


OOOOOOG 


9 


000252 


126227 


177777 


10 


000260 


001001 




11 


000262 


105042 




12 


000264 


010201 




13 


000266 


020103 




14 


000270 


101002 




15 


000272 


000167 


OOOOOOG 


16 


000276 


114100 




17 


000300 


004767 


000320 


IS 


000304 


001370 




19 








20 








21 


000306 


120027 


000072 


22 


000312 


001414 




23 


000314 


120027 


000040 


24 


000320 


001013 




25 


000322 


020103 




26 


000324 


101407 




27 


000326 


124127 


000040 


28 


000332 


001773 




29 


000334 


121127 


000072 


30 


000340 


001401 




31 


000342 


005201 




32 


000344 


1127U 


000075 


33 


000350 


010100 




34 


000352 


160300 




35 


000354 


020027 


000003 


36 


000360 


003021 




37 








38 








39 








40 








41 








42 


000362 


112722 


000072 


43 


000366 


105022 




44 


000370 


010204 




45 


000372 


062704 


000002 


46 


000376 


020201 




47 


000400 


001402 




48 


000402 


114244 




49 


000404 


000774 




50 


000406 


112722 


000072 


51 


000412 


112712 


000101 


52 


000416 


105267 


OOOOOOG 


53 


000422 


000403 




54 








55 








56 








57 


000424 


112722 


000072 
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SBTTL ASSIGN command 



PROCESS THE 'ASSIGN' COMMAND. 

SEE IF FULL FILE ID IS SPECIFIED OR JUST DEVICE NAME. 



CONVERT TAB AND FF CHARS TO SPACES 
SET FLAG FOR LONG ASSIGN 
DOES LOGICAL NAME HAVE COLON? 
BR IF NOT 
CLEAR IT FOR NOW 
POINT TO NULL AT END OF LINE 
SCAN BACK TOWARDS FRONT 
BRANCH IF MORE TO DO 
MUST HIT SOME DELIM 
GET NEXT CHAR BACK 
IS IT A DELIMITER? 
IF NOT KEEP SCANNING 
:R — SEE WHERE IT IS 

{REPLACE ': ' AND ' ' WITH '=' 



HAVE WE REACHED FRONT OF COMMAND LINE? 

BR IF YES 

SKIP OVER ALL CONSECUTIVE BLANKS 

; ALLOW "ASSIGN DXl: DK" CONSTRUCT 

; POINT TO 1ST BLANK CHARACTER 

HOW MANY CHARS IN NAME TO 
LEFT OF DELIMITER? 
DEVICE NAME <= 3 CHARS 
LDNGER==>FULL FILE NAME. 

SIMPLE ASSIGN OF PHYSICAL TO LOGICAL DEVICE. 
REFORMAT COMMAND TO 'DEV: A^ DEV: ' SO CSISPC CAN 
HANDLE IT. 

PUT COLON AT END OF 2ND NAME 
NULL TO TERMINATE STRING 
MAKE ROOM AT END OF 1ST NAME 
BY SLIDING CHARS OVER 2 PLACES 
WORK BACK DOWN TO '=' 
BRANCH AFTER '=' MOVED 
SLIDE OVER TO RIGHT 

PUT COLON AFTER 1ST DEVICE NAME 
PUT IN DUMMY FILE NAME 'A'. 
REMEMBER TO KILL FILE NAME LATER 
GO DO . CSISPC 

REQUEST ASSIGNMENT OF LOGICAL DEVICE TO NAMED FILE. 

ASFID: MOVE #':, (R2)+ ; PUT COLON AT END OF LOGICAL NAME 



i 
I 
t 



CMDASr 


VI: CALL 


CVTTAB 




CLRB 


ASKLNM 




CMPB 


»1<R2)»# 




BNE 


5* 




CLRB 


-<R2) 


5$: 


MOV 


R2, Rl 


1$: 


CMP 


R1,R3 




BHI 


2* 




JMP 


BADCMD 


2*: 


MOVE 


-(R1),R0 




CALL 


ASDELM 




BNE 


1* 


i WE 


SCANNED 


BACK TO A 


; IN 


COMMAND. 






CMPB 


RO, #': 




BEQ 


3* 




CMPB 


RO, #' 




BNE 


4* 


6«: 


CMP 


Rl, R3 




BLOS 


3* 




CMPB 


-<R1), #' 




BEQ 


6* 




CMPB 


(Rl),#': 




BEQ 


3* 




INC 


Rl 


3$: 


MOVE 


#'=, <R1) 


4*: 


MOV 


Rl.RO 




SUB 


R3, RO 




CMP 


RO, #3 




BGT 


ASFID 



ASSMPL: 


MOVB 


#': , <R2) + 




CLRB 


<R2) + 




MOV 


R2, R4 




ADD 


#2, R4 


1$: 


CMP 


R2iRl 




BEQ 


2* 




MOVB 


-<R2), -(R4) 




BR 


1* 


2$: 


MOVB 


#': , (R2) + 




MOVB 


#'A, (R2) 




INCB 


ASKLNM 




BR 


ASCIS 



I 
I 

I 



I 
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58 


000430 


105012 




59 








60 








61 








62 


000432 


010605 




63 


000434 






64 


000450 


010506 




65 


000452 


103010 




66 








67 


000454 


113705 


OOOOOOG 


68 


000460 


006305 




69 


000462 


016504 


OOOOOOG 


70 

71 
72 


000466 












73 








74 








75 








76 








77 








78 








79 








80 








81 


000474 


016700 


OOOOOOG 


82 


000500 


004767 


OOOOOOG 


S3 


000504 


103403 




84 


000506 


016267 


OOOOOOG OOOOOOG 


85 


000514 


105767 


OOOOOOG 


86 


000520 


001402 




87 


000522 


005067 


000002G 


88 








89 


000526 


016700 


000036G 


90 


000532 


004767 


OOOOOOG 


91 


000536 


103010 




92 








93 


000540 


005000 




94 


000542 


004767 


OOOOOOG 


95 


000546 


103004 




96 








97 


000550 






98 








99 








100 








101 








102 


000560 


016762 


000036G OOOOOOG 


103 


000566 


016762 


0000 lOG OOOOOOG 


104 


000574 


012703 


OOOOOOG 


105 


000600 


012362 


OOOOOOG 


106 


000604 


012362 


OOOOOOG 


107 


000610 


012362 


000002G 


108 


000614 


011362 


OOOOOOG 


109 


000620 


000167 


OOOOOOG 
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CLRB (R2) iNULL TO END STRING 

CALL CSI IN SPECIAL MODE TO PARSE ASSIGN COMMAND, 



ASCIS: MOV 



SP, R5 



; SAVE STACK POINTER 



. CSISPC #KCSIBF, #ASDEX. R3 

MOV R5, SP 

BCC ASCSOK 
i ERROR OCCURED ON . CSISPC 

CSIERR: MOVE @#ERRLOC, R5 

ASL R5 

MOV KCSIMS(R5),R4 

FABORT R4 



RESET TOP OF STACK 
BRANCH IF . CSISPC OK 

GET ERROR CODE 
CONVERT TO WORD INDEX 
GET ADDR OF ERROR MESSAGE 
PRINT ERROR MESSAGE 



Move the assign information into the assign table. 
The physical device (and possibly file name) 
description is in KCSIBF in the area for chan #0. 
The logical device block is in the space for chan #3. 



If "physical" device na 
a logical name (previou 
physical device name. 



me used in assign statement is actually 

sly assigned)/ convert it to the corresponding 



ASCSOK; MOV 

CALL 

BCS 

MOV 
3*: TSTB 

BEQ 

CLR 
•> Clear any 
1*: MOV 

CALL 

BCC 
i Search for a 

CLR 

CALL 

BCC 
i ASSIGN TABLE 

FABORT 



KCSIBF, RO 
ASNSRC 
3* 

AT*DEV(R2) 
ASKLNM 
1* 

<KCSIBF+2> 
previous assi 
KCSIBF+30. 
ASNSRC 
2* 
a free assig 
RO 

ASNSRC 
2* 

IS FULL. 
#ASNOVF 



i GET PHYSICAL DEVICE NAME FOR ASSIGN 

>SEE IF IT IS ACTUALLY A LOGICAL DEV NAME 

iBR IF NOT 
KCSIBFi REPLACE LOGICAL NAME WITH REAL PHYSICAL NAME 

iMUST WE KILL FILE NAME? 

; BRANCH IF NOT 

iKILL THE NAME 
gn ufith this logical name. 
, RO jGET LOGICAL DEVICE NAME 

J SEE IF NAME IS ALREADY ASSIGNED 

J BR IF ASSIGN ALREADY EXISTS <REUSE THIS ENTRY 
n block. 

i SEARCH FOR FREE ASSIGN BLOCK 



; BR IF FOUND ONE 



FOUND A FREE SLOT (POINTED TO BY R2) MOVE ASSIGN 

INFO INTO BLOCK. 

J*: MOV KCSIBF+30. ,AT*L0G(R2); MOVE IN LOGICAL DEVICE NAME 

MOV KCSIBF+8. , AT*SIZ(R2)j MOVE IN FILE LENGTH 

MOV #KCSIBF, R3 

MOV (R3)+, AT*DEV(R2);M0VE IN REAL DEVICE NAME 

MOV (R3)+, ATi6FIL(R2); MOVE IN FILE NAME 

MOV (R3)+, AT*FIL+2(R2) 

MOV (R3), AT*EXT(R2) i MOVE IN FILE EXTENSION 

JMP RDCMD 
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1 

2 








3 








4 








5 








6 








7 


000624 


120027 


000075 


8 


000630 


001405 




9 


000632 


120027 


000072 


10 


000636 


001402 




11 


000640 


120027 


000040 


12 


000644 


000207 





ASDELM IS CALLED TO CHECK IF THE CHARACTER IN RO 
IS ONE OF THE CHARACTERS ': '. '='. OR ' '. 
ON RETURN THE CONDITION CODE IS SET FOR BEQ/BNE. 
ALL REGISTERS ARE PRESERVED. 



i CHECK EQUAL SIGN 
i CHECK COLON 



ASDELM: 


CMPB 


RO, #' = 




BEQ 


1$ 




CMPB 


RO, #': 




BEQ 


1« 




CMPB 


RO, #' 


1*: 


RETURN 





; CHECK SPACE 
; RETURN WITH CC SET. 



I 
t 

i 



( 
< 

r 
i 
< 
i 

( 

i 
f 
I 
< 

i 
( 
I 

I 

i 

i 
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DEASSIGN command 

i . 3BTTL DEASSIGN command 

; PROCESS THE DEASSIGN COMMAND 



2 








3 








4 








5 


000646 


004767 


OOOOOOG 


6 


000652 


105713 




7 

8 


000654 


001010 




9 
10 








11 








12 


000656 


012702 


OOOOOOG 


13 


000662 


005022 




14 


000664 


020227 


OOOOOOG 


15 


000670 


103774 




16 


000672 


000167 


OOOOOOG 


17 








18 








19 








20 


000676 


004767 


OOOOOOG 


21 


000702 


016700 


OOOOOOG 


22 


000706 


012702 


OOOOOOG 


23 


000712 


020062 


OOOOOOG 


24 


000716 


001004 




25 


000720 


005062 


OOOOOOG 


26 


000724 


005062 


OOOOOOG 


27 


000730 


062702 


OOOOOOG 


2S 


000734 


020227 


OOOOOOG 


29 


000740 


103764 




30 


000742 


000753 





CMDDSN: CALL 
TSTB 
BNE 



CVTTAB 

(R3) 

DEASl 



CONVERT TAB AND FF TO SPACES 
DEASSIGN ALL OR ONE? 
BR TO DEASSIGN ONE NAME 



REQUEST TO DEASSIGN ALL LOGICAL NAMES 
(SIMPLY ZERO THE ASSIGN TABLE) 



1*: 



DAJMP: 



MOV 


#ASNTBL. R2 


; POINT TO 


CLR 


(R2) + 




CMP 


R2, #ASNEND 


iDONE ALL? 


BLO 


1* 


; BR IF NOT 


JMP 


RDCMD 





REQUEST TO DEASSIGN A PARTICULAR LOGICAL DEVICE NAME 



DEASl: 



1$: 



?«: 



CALL 


GTRD50 


MOV 


R50BUF, RO 


MOV 


#ASNTBL, R2 


CMP 


RO, AT*L0G<R2) 


BNE 


2* 


CLR 


AT*L0G<R2) 


CLR 


AT*DEV<R2) 


ADD 


#AT**SZ> R2 


CMP 


R2, #ASNEND 


BLO 


1* 


BR 


DAJMP 



ACCRUE THE DEVICE NAME 

PICK UP DEVICE NAME 

POINT TO START OF ASSIGN TABLE 

IS THIS ENTRY FOR THE DEVICE? 

BR IF NOT 

DEASSIGN THE LOGICAL NAME 

CLEAR PHYSICAL DEVICE NAME ALSO 

POINT TO NEXT ASSIGN TABLE ENTRY 

REACHED END OF TABLE? 

BR IF MORE TO DO 



I 

4 
f 

f 

i 



i 
< 
I 

i 
i 

i 
i 
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£ 








3 








4 








5 








6 








7 


000744 






8 








9 








10 








11 


000744 


005067 


177032 


12 


000750 


004767 


OOOOOOG 


13 


000754 


004767 


0000000 


14 


000760 


105713 




15 


000762 


001002 




16 


000764 


000167 


OOOOOOG 


17 








IS 








19 








20 


000770 


032767 


OOOOOOG 


21 


000776 


001004 




22 


001000 






23 








24 








25 








26 


001010 


004767 


OOOOOOG 


27 








28 








29 








30 


001014 


004767 


OOOOOOG 


31 


001020 


122327 


000072 


32 


001024 


001401 




33 


001026 


005303 




34 


001030 


010346 




35 


001032 


004767 


OOOOOOG 


36 


001036 


012603 




37 


001040 


103435 




38 


001042 


016702 


OOOOOOG 


39 


001046 


010267 


OOOOOOG 


40 








41 








42 








43 


001052 


005767 


176724 


44 


001056 


001002 




45 


001060 


010267 


176716 


46 








47 








48 








49 


001064 


012700 


OOOOOOG 


50 


001070 


104375 




51 


001072 


103051 




52 


001074 


010005 




53 








54 








55 








56 


001076 


1 1 3702 


OOOOOOG 


57 


001102 


120227 


000001 
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. 3BTTL ALLOCATE command 

Allocate a device for exclusive access by this job. 
The form of this command is: 

ALLOCATE devC: 1, . . . logical._name 

CMDALC : 

If no devices were specified^ treat this like a SHOW ALLOCATE command 

Say no allocat device seen yet 

Convert tab and FF chars to spaces 

Skip over spaces 

Any devices specified? 

Br if yes 

Do SHOW ALLOCATE command 



CLR 


ALCIDV 


CALL 


CVTTAB 


CALL 


SKPSPC 


TSTB 


<R3) 


BNE 


1* 


JMP 


SOPALC 



OOOOOOG 1*: 



See if we are authorized to allocate devices 

BIT #PO*ALC» PRIVCO ; Are we authorized to allocate devices? 

BNE 10* ; Br if yes 

FABORT #EM*ALC i Not authorized for ALLOCATE 

Begin loop to get the name of each device to be allocated 



10*: CALL SKPSPC 

Accrue the next device name 



6*: 



CALL 


GTRD50 


CMPB 


<R3)+,#': 


BEQ 


6$ 


DEC 


R3 


MOV 


R3, -<SP) 


CALL 


SKPDLM 


MOV 


<SP)+, R3 


BCS 


41* 


MOV 


R50BUF, R2 


MOV 


R2, ALCDEV 



Save the first device name 



TST 
BNE 
MOV 



ALCIDV 

2* 

R2, ALCIDV 



iSkip over any spaces 



Accrue the device name 

Was a colon specified with the device name? 

Br if yes 

Backup pointer 

Save command pointer 

Skip legal delimiters (blank<s)> commas EOL) 

Restore command pointer 

Invalid character following name 

Get the name of the device 

Set name of device being allocated 



i Have we seen the first device yet? 

J Br if yes 

/Save the name of the 1st device 



Do the allocation for this device 



>*: 



MOV #ALDEMT. RO 

EMT 375 

BCC 3* 

MOV RO, R5 



; Point to EMT arq block to do the allocation 

i Try to allocate the device 

j Br if allocation was successful 

; Save returned error value 



An error occurred on the allocation. Print error message. 



MOVE ®#ERRLOC, R2 
CMPB R2, #1 



; Get allocation error code 

j Device already allocated by someone else? 



( 
I 
f 
I 

< 
I 
f 
I 
I 

i 
i 
i 
< 



i 



t 
c 

« 
{ 

I 

i 

€ 
I 
I 
< 

f 

f 
i 
i 

i 



TSKM2A — Keyboard command rout MACRO V05. 05 Thursday 19-Jan-89 14:53 Page il-1 
ALLOCATE command 



5S 


001106 


001007 




59 


001110 






60 


001124 


000427 




61 


001126 


120227 


000002 


62 


001132 


001004 




63 


001134 






64 


001144 


120227 


000003 


65 


001150 


001004 




66 


001152 






67 


001162 


120227 


000004 


68 


001166 


001013 




69 


001170 






70 


001204 


004767 


OOOOOOG 


71 


001210 






72 








73 








74 








75 


001216 


004767 


OOOOOOG 


76 


001222 


122327 


000054 


77 


001226 


001670 




78 








79 








80 








81 








82 


001230 


105743 




83 


001232 


001410 




84 


001234 


004767 


OOOOOOG 


85 


001240 


016705 


OOOOOOG 


86 


001244 


016700 


176532 


87 


001250 


004767 


OOOOOOG 


88 








89 








90 








91 


001254 


000167 


OOOOOOG 



4*; 

41*: 
5*: 



S«: 



/*: 



BNE 


4* 


FERR 


#EM*DAA 


BR 


7* 


CMPB 


R2, #2 


BNE 


5* 


FAB OR T 


#EM*IAD 


CMPB 


R2, #3 


BNE 


8* 


FABORT 


#EM*ATF 


CMPB 


R2, #4 


BNE 


3* 


FERR 


#EM*DIU 


CALL 


PRTDEC 


. PRINT 


#CRLF 



3$: 



i Br i f not 

;Device allocated by another job 

Invalid device being allocated? 

Br if not 

Invalid device for allocation 

Allocation table full? 

Br if not 

Allocation table full 

Device in use by another user? 

Br if not 

Device is in use by another user 

Print the number of the job that has the dev 

End of line 

See if there are more devices to be allocated 

iSkip over any spaces 

;I5 there another device to allocate?' 

i Loop if yes 

Wb have finished allocating all devices. 

See if me need to assign a logical name to the first device we allocated. 

i Was a logical device name specified? 

J Br if not 

i Accrue the logical device name 

i Get the logical device name 

; Get the physical device name 

j Do the assignment 



^Finished with command 



CALL 


SKPSPC 


CMPB 


<R3)+,#', 


BEQ 


10* 



TSTB 


"(R3) 


BEQ 


9* 


CALL 


GTRD50 


MOV 


R50BUF, R5 


MOV 


ALCIDV, RO 


CALL 


DOASGN 


i Finished 




9*: JMP 


RDCMD 



f 
c 

f 

i 
f 

i 



« 
I 

i 

i 

I 
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« 

i 
i 

« 

i 
t 
t 
f 
I 
I 
i 

t 
I 
( 



3 
4 

5 001260 

6 001264 

7 001272 

8 001274 
9 

10 
11 

12 001304 

13 001310 

14 001314 
15 

16 
17 

15 001320 

19 001322 

20 001324 

21 001330 

22 001332 

23 001334 

24 001340 
001344 
001346 



25 
26 



ei/ 
2S 

29 
30 

31 001356 

32 001362 

33 001366 

34 001372 

35 001376 

36 001400 

37 001402 

38 001406 
39 

40 
41 

42 001410 

43 001414 

44 001420 

45 001424 

46 001426 

47 001430 

48 001432 

49 001436 

50 001442 

51 001444 

52 001460 

53 001464 

54 001472 

55 001474 

56 001500 

57 001502 
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. SBTTL DEALLOCATE command 



005067 
032767 
001004 



004767 
004767 
004767 



111300 
001473 
120027 
001012 
005203 
004767 
122327 
001465 



005267 
004767 
004767 
122327 
001401 
005303 
004767 
103435 



016702 
010267 
012700 
104375 
103334 
010005 
1 1 3700 
1 20227 
001014 



000712 



001307 



Deallocate an allocated device. 



176516 CMDDLC: CLR 

0000000 OOOOOOG BIT 

BNE 
FABORT 



OOOOOOG 

ooooooe 

OOOOOOG 



000057 



OOOOOOG 
000101 



176420 
OOOOOOG 
OOOOOOG 
000072 



OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
000001 



004767 OOOOOOG 



000002 



ALCIDV 

#PO«ALC,PRIVCO 

1* 

#EM$ALC 



See if /ALL u»as specified 



1$: 



CALL 
CALL 
CALL 



CVTTAB 

CVTUC 

SKPSPC 



/Clear deallocated device counter 

iAre uie authorized to allocate devices? 

i Br if yes 

;Not authorized to deallocate 



i Convert tab and FF chars to spaces 

; Convert louier esse chars to upper case 

;Skip over spaces 



Find devices for deallocation. 



2$: 
3$: 



MOVB 


(R3)>R0 


BEQ 


10* 


CMPB 


RO, #'/ 


BNE 


4* 


INC 


R3 


CALL 


SKPSPC 


CMPB 


<R3)+,#'A 


BEQ 


12* 


FABORT 


#INVOPT 



Get 1st char of operand 

No devices specified^ deallocate all 

Was a switch specified? 

Br if not 

Skip over slash 

Skip any spaces 

"ALL"? 

Br if yes 

Invalid option 



Deallocate a list of devices 
Accrue the next device name 



4*: 



5*: 



INC 


ALCIDV 


CALL 


SKPSPC 


CALL 


GTRD50 


CMPB 


(R3)+,#' 


BEQ 


5* 


DEC 


R3 


CALL 


SKPDLM 


BCS 


7* 



j Count deallocated devices 

jSkip over any spaces 

i Accrue the device name 

i Was colon specified following name? 

i Br if yes 

j Bac kup pointer 

iSkip valid delimiters <blank(s)/ comma) 

j Br if invalid character 



Deallocate the device specified. 



6$: 
7«: 



MOV 


R50BUF, R2 


MOV 


R2, ALCDEV 


MOV 


#DLCEMT, RO 


EMT 


375 


BCC 


2* 


MOV 


RO, R5 


MOVB 


@#ERRLOC, RO 


CMPB 


R2, #1 


BNE 


6* 


FERR 


#EM*DAA 


CALL 


PRTDEC 


. PRINT 


#CRLF 


BR 


2* 


CMPB 


R2, #2 


BNE 


2« 



FABORT #EM*IAD 



Get the name of the device 

Set name of device being allocated 

Point to EMT argument block 

Do the deallocation 

Br if ok 

Save job # if owned by someone else 

Get error code 

Device allocated by someone else? 

Br if not 

Device allocated by another job 

Print the number of the job that has the dev 

End of line 

i Invalid device being allocated? 

i Br if not 

i Invalid device for allocation 



i 
i 

I 
I 
i 
« 
t 
t 

< 
I 
I 



i 
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I 
t 
I 

€ 



58 
59 
60 

61 001512 005767 176264 

62 001516 001006 

63 001520 005067 OOOOOOG 

64 001524 012700 OOOOOOG 

65 001530 104375 

66 001532 000400 
67 

68 
69 
/U UUiDj4 UKJKJia/ Ouuuuutj 



> 

; Deal locate 


all devices 


10*: 


TST 


ALCIDV 




BNE 


20* 


12*: 


CLR 


ALCDEV 




MOV 


#DLCEMT< RO 




EMT 


375 




BR 


20* 


i F 


inished 





J Were any devices specified? 
J Yes, end of command 
; Say to deallocate all devices 
J Point to EMT argument block 
■Do the deallocation 



RDCMD 



ii-inished u>ith command 
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1 








2 








3 








4 








5 








6 








7 








8 


001540 


004767 


0000000 


9 








10 








11 








12 


001544 


004767 


OOOOOOG 


13 


001550 


105713 




14 


001552 


001436 




15 








16 








17 








IS 


001554 


004767 


OOOOOOG 


19 








20 








21 








22 








23 


001560 


005767 


0000020 


24 


001564 


001012 




25 


001566 


121327 


000072 


26 


001572 


001002 




27 


001574 


105723 




28 


001576 


000407 




29 


001600 


016705 


OOOOOOG 


30 


001604 


004767 


OOOOOOG 


31 


001610 


103002 




32 








33 








34 








35 


001612 


004767 


000036 


36 








37 








38 








39 


001616 


122327 


000054 


40 


001622 


001401 




41 


001624 


005303 




42 


001626 


105713 




43 


001630 


001407 




44 


001632 


121327 


000040 


45 


001636 


001742 




46 


001640 






47 








48 








49 








50 


001650 


000167 


OOOOOOG 
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. SBTTL REMOVE command 



The REMOVE command has two functions: 

(1) To remove a device handler from memory, 
under TSX-Plusi 

(2) To remove a named PLAS region. 



This function is a NOP 



CALL 


SKPSPC 


TSTB 


<R3) 


BEQ 


9* 



CMDREM: CALL CVTTAB ; Convert tab and FF chars to spaces 

Quit if we have reached the end of the command line 

1*: CALL SKPSPC iSkip past leading spaces 

; Are uie at the end of the command? 
i Br if yes 

Accrue the name of a device or region 

CALL GTRD50 ; Accrue device or region name 

If the name is longer than 3 characters then it must be a region 
name* otherwise check to see if it is a device name. 

Is name longer than 3 characters? 
Br if yes 

Is name terminated with colon?' 
Br if not 
Ski" over colon 
Must have been a device name 
3*: MOV R50BUF, R5 ; Get 1st 3 chars of name 

See if this is the name of a device 
Br if device name 

This is a request to remove a named PLAS region. 
2$: CALL REMRGN /Remove a region 

Skip over any separating comma 
5$: 



TST 


R50BUF+2 


BNE 


2* 


CMPB 


(R3)>#': 


BNE 


3* 


TSTB 


(R3) + 


BR 


5* 


MOV 


R50BUF, R5 


CALL 


CHKDEV 


BCC 


5* 



CMPB 


<R3)+, #' 


BEQ 


4* 


DEC 


R3 


TSTB 


<R3) 


BEQ 


9* 


CMPB 


(R3),#' 


BEQ 


1* 



4$: 



FAB OR T #EM*CSE 
5 Finished 
9*: JMP RDCMD 



Is there a separating comma? 

Br if yes 

Point back to skipped char 

Reached end of command? 

Br if yes 

Space separator? 

Br if yes 

Command syntax error 



i 
f 



I 
I 
( 
f 
i 
I 
i 
i 
( 
I 
i 
€ 
f 



f 
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I 

f 

i 

I 
f 
I 

C 

« 
I 
( 
( 

! ( 



001654 010246 



001 
001 
001 
001 
001 
001 
001 
001 



o5o 
662 
666 
674 
702 
710 
726 
734 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



23 001736 

24 001744 

25 001762 

26 001770 
27 

28 
29 

30 001772 

31 002006 
32 

33 
34 
35 

36 002010 

37 002016 

38 002034 
39 

40 

41 

42 002036 

43 

44 

45 

46 002052 

47 002054 



012702 
005062 
012762 
016762 
016762 

032762 
001025 



000020 ' 

ooooooe 

uOouOO^ 
OOOOOOG 
0000020 



uuuuuuw 
OOOOOOG 
0000020 



OOOOOOG OOOOOOG 



012762 OOOOOOG OOOOOOG 

032762 OOOOOOG OOOOOOG 
001007 



Eliminate a named PLAS region. 

Inputs: 
R50BUF = RadSO name of the region. 

REMRGN: MOV R2, -(SP) 

First attempt to attach to a private region with that name. 

MOV #REMRD13* R2 ; Point to region definition block 

CLR R.GSIZ(R2) ; Clear size word 

MOV #<RS. GBL ! RS. PVT>j R. GSTS<R2> /Function = Attach private region 

MOV R50BUF, R. NAME<R2) i Set name of region 

MOV R50BUF+2, R. NAME +2 < R2 ) 

. CRRG #XAREA, R2 ; Attempt to attach to region 

BIT #RS. CRR. R. GSTS<R2) i Were u>e able to attach? 

BNE 1* iBrifyes 

Unable to attach to private region. 
Try to attach to public region. 

MOV #RS. GBL. R. GSTS<R2) /Function = Attach global region 

CRRG #XAREA, R2 /Attempt to attach to it 

BIT #RS. CRR/ R. GSTS<R2) iWas attachment successful? 

BNE 1* jBrifyes 



Error 



We are unable to attach to region 



000421 



FERR 
BR 



#EM*UAR 
9* 



/Unable to attach to region 



012762 OOOOOOG OOOOOOG 1*: 
103006 



We successfully attached to the region. 
Try to eliminate the region. 

MOV #RS. EOR/ R. GSTS<R2) ; Function = Eliminate region 
. ELRG #XAREA/ R2 'Try to eliminate the region 
BCC 9* i Br if successful 



012602 
000207 



Error — Unable to eliminate the region 

FERR #EM*UER ; Unable to eliminate region 

Finished 

9*: MOV <SP)+, R2 
RETURN 



i 
I 
I 
I 

i 

I 

c 
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€ 
t 
i 
I 
i 
I 



3 








4 








5 


002056 


004767 


OOOOOOG 


6 


002062 


004767 


OOOOOOG 


7 








8 








9 








10 


002066 


010302 




11 


002070 


004767 


OOOOOOG 


12 


002074 


016700 


OOOOOOG 


13 


002100 


020067 


175726 


14 


002104 


001421 




15 


002106 


020067 


175722 


16 


002112 


001473 




17 


002114 


020067 


175720 


IS 


002120 


001470 




19 








20 








21 








22 








23 


002122 


010300 




24 


002124 


160200 




25 


002126 


020027 


000002 


26 


002132 


101404 




27 


002134 






28 








29 








30 








31 


002144 


000167 


OOOOOOG 
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. 3BTTL INSTALL Command 
Process the INSTALL command. 



CMDINS: CALL 
CALL 



CVTTAB 
CVTUC 



; Convert tabs to spaces 
; Convert to upper case 



Accrue first keyword and see if it is ADD or DELETE 



MOV 


R3, R2 


CALL 


GTRD50 


MOV 


R50BUF> RO 


CMP 


RO, R 50 ADD 


BEQ 


INS ADD 


CMP 


RO, R50DEL 


BEQ 


INSDEL 


CMP 


R0> R50REM 


BEQ 


INSDEL 



Save pointer to start of fceyuiord 

Accrue Ist keyword 

Get 1st 3 chars of keyword 

Is keyuford ADD? 

Br if yes 

Is keyword DELETE? 

Br if yes 

Is keyword REMOVE? 

Br if yes 

Keyword is not ADD or DELETE. 

Error if 1st keyword is longer than 2 characters. 

i Get pointer past end of keyword 
i Determine length of 1st keyword 
jlst keyword longer than 2 chars? 
; Br if not 
FABORT #ILLCMD -Invalid command 

This must be a device handler name — Ignore this command 

1*: JMP RDCMD ; Finished installing device handler 



MOV 


R3, 


RO 


SUB 


R2, 


RO 


CMP 


RO, 


#2 


BLOS 


1* 





f 
f 



c 

I 
I 
I 






i 

f 

i 

I 
i 

i 

i 

I < 

i 
i 
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i 
2 








3 








4 


002150 


004767 


OOOOOOG 


5 


002154 


005067 


175662 


6 


002160 


004767 


OOOOOOG 


7 


002164 


004767 


000546 


8 








9 








10 








11 


002170 


004767 


000144 


12 


002174 


103002 




13 








14 








15 








16 








17 


002176 


004767 


000450 


IS 








19 








20 








21 


002202 


012702 


OOOOOOC 


22 


002206 


012704 


OOOOOOG 


23 


002212 


012700 


000004 


24 


002216 


012422 




25 


002220 


077002 




26 








27 








28 








29 








30 


002222 


004767 


000510 


31 








32 








33 








34 


002226 


010546 




35 


002230 


016767 


175606 00000 iC 


36 


002236 


012702 


OOOOOOG 


37 


002242 


012703 


OOOOOOC 


38 


002246 


012704 


OOOOOOG 


39 


002252 


012705 


OOOOOOC 


40 


002356 


012700 


OOOOOOG 


41 


002262 


012223 




42 


002264 


012425 




43 


002266 


077003 




44 


002270 


012605 




45 








46 








47 








48 


002272 


004767 


000424 


49 








50 








51 








52 


002276 


000167 


OOOOOOG 



we are adding an image 



INSADD: CALL 
CLR 
CALL 
CALL 



CKSYPV 
lATTRB 
CLRPRV 
INSOPT 



i Require SYSPRV privilege 

;Clear all attribute flags 

iReset privilege flag cells 

j Process any options that follou ADD 



Get the name of the image and see if it is currently in table 



CALL 
BCC 



INSNAM 
1* 



j Get name of image and look it up 
; Br if name already in table 



Name is not currently in table. 

Try to find a free slot in the table. 



CALL 



INSFRE 



j Find free table entry 



Set up program name for ^ree entry 



1«: 



?*: 



MOV 
MOV 
MOV 
MOV 

SOB 



#II*NAM+IIBUF, R2i Point to target buffer 

#FILNAM, R4 j Point to name 

#4, RO i Move 4 words 

(R4)+> (R2)+ i Move name to buffer 

RO. 2* 



At this point. R5 points to buffer where install entry is to be made 
Process any options that follow the file name 

CALL INSOPT f Process any options that follow name 

Move attribute and privilege flags into install entry 



3*: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
SOB 
MOV 



R5, -<SP) i Save address of entry in install tabli 
lATTRB. II$FLG+IIBUF i Set attribute flags for program 



#PFSO, R2 

#II«PRV+IIBUF.R3 
#PFCO, R4 

#II*NPV+I1BUF, R5 
#PVNPW, RO 
(R2)+, <R3) + 
<R4)+, <R5)+ 



Point to accrued privilege flags 

Install entry flags 

Flags to clear when run 

Install entry 

Get # words to move 

Move flags to be set 

Move flaas to be cleared 



RO, 3* 

<SP)+, R5 ; Recover address of entry in install table 



Add the entry to the install table 

CALL INSPUT iAdd entry to table 

Fini shed 

JMP RDCMD 



f 

I 
f 

t 

i 

c 

f 

( 

€ 
< 
i 

i 
I 
i 

i 



i 



f 

< 
( 
I 
t 

I* 

i 

I 
4 

I 

C 
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004767 000026 
103004 



3 

4 002302 004767 0000000 

5 

6 

7 

8 002306 

9 002312 
10 002314 
11 
12 

•a 

14 002324 

15 002330 
16 
17 
IS 
19 002334 



005067 00000 IC 
004767 000366 



000167 0000000 



i PruteBs INSTALL DELETE command 

INSDEL: CALL CKSYPV i Require SYSPRV privilege 

i See if we can find program in install table 



CALL INSNAM 

BCC 1* 

FABORT #EM*FNI 

Found entry/ delete it 



if: 



CLR 
CALL 

Finished 

JliP 



II*NAM+IIBUF 
INSPUT 



RDCHD 



jAccrue file spec and try to find in table 
i Br if found file name in table 
;File not installed 



j Say image is not installed 
; Write entry back to table 



c 

f 

f 
I 

< 

r 

I 

4 

t 
I 
4 
I 
I 
f 



i 

r 

I i 
( 
( 

r 

i 

I 
f 
I 
( 
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3 

4 

5 

6 

7 

8 

9 
10 
11 
12 

13 002340 

14 002342 
15 

16 
17 

18 002344 

19 002346 

20 002352 

21 002356 

22 002360 

23 002366 
002370 
002374 
002400 
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31 
32 



25 

26 

27 

28 

29 

30 002406 
002412 
002414 

33 002420 

34 002422 

35 002426 

36 002430 

37 002432 

38 002434 

39 002440 
40 

41 
42 

43 002442 

44 002446 

45 002452 

46 002454 

47 002456 

48 002462 
49 

50 
51 

52 002464 

53 002470 

54 002474 

55 002476 

56 002502 

57 002504 



010246 
010446 



005002 
004767 
121327 
001013 
126327 
001007 
012702 
112713 



012704 
005005 
004767 
103510 
005767 
001505 
005702 
001403 
010267 
000431 



012705 
004767 
010346 
010503 
004767 
012603 



016705 
004767 
103407 
020467 
001010 



Accrue a file spec for a file that is being installed and look the 
name up in the install table. 



Inputs: 
R3 ~ Pointer to start of file spec. 

Outputs: 
C-flag cleared ==> Found entry in install table. 
C~flag set ===> Cannot find entry in install table. 
R5 = Address of entry in install table if found. 



INSNAM; MOV 
MOV 



R2, -<SP) 
R4, -<SP) 



OOOOOOG 
000052 

000001 000072 

132500 
000040 
000040 000001 



OOOOOOG 
OOOOOOG 
000002G 

OOOOOOG 



CLR 


R2 


CALL 


SKPSPC 


CMPB 


<R3),#'* 


BNE 


11* 


CMPB 


KR3), #': 


BNE 


11* 


MOV 


#WLDNAM> K2 


MOVB 


#' , (R3) 


MOVB 


#' , 1(R3) 



Determine if wildcard ("*") specified as device name 



Assume device name is not wild 

Skip up to start of file spec 

Wildcard as device name? 

Br if not 

Is this the device name? 

Br if not 

Remember device name is tuild 

Blank out the device name 



Accrue the file spec 

11*: MOV #R50SAV, R4 i Get default file extension <SAV) 

Say this is an input file 
Accrue the file spec 
Br if invalid file spec 
Was a file name specified? 
Br if not 

Is device name wild? 
Br if not 
Set wildcard as file name 



MOV 


#R50SAV, R4 


CLR 


R5 


CALL 


ACRFIL 


BCS 


10* 


TST 


FILNAM+2 


BEQ 


10* 


TST 


R2 


BEQ 


12* 


MOV 


R2, FILNAM 


BR 


5* 



Translate logical file device to physical device with unit # 



OOOOOOG 
OOOOOOG 



OOOOOOG 



12*: 



MOV 


#FILNAM, R5 


CALL 


LOGASN 


MOV 


R3> -<SP) 


MOV 


R5, R3 


CALL 


FORCEO 


MOV 


(SP)+>R3 



Point to file spec 

Do logical assignment 

SAVE POINTER 

GET COPY OF DEVICE POINTER 

MAKE BLANK UNIT = 

RESTORE POINTER 



Error if logical disk <LD) specified for device 



OOOOOOG 
OOOOOOG 

OOOOOOG 



MOV 


FILNAM, R5 


CALL 


CHKDEV 


BCS 


6* 


CMP 


R4, LDDEVX 


BNE 


5* 



FABORT #EM*LDI 



Get the device name 

Convert to device index number 

Br if invalid device 

Is this a logical disk? 

Br if not 

Can't have installed program on LD 



I 

^ 
i 

I 
i 

i 
t 

i 
< 

i 

i 
i 



f 
{ 

4 
( 

c 
< 

f 

t 
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58 


002514 






59 








60 








61 








62 


002524 


016705 


OOOOOOG 


63 


002530 


010567 


OOOOOOG 


64 


002534 


012700 


OOOOOOG 


65 


002540 


104375 




66 


002542 


005760 


OOOOOOC 


67 


002546 


001422 




68 


002550 


012700 


000006 


69 


002554 


026027 


OOOOOOG 132500 


70 


002562 


001410 




71 


002564 


026027 


OOOOOOC 132500 


72 


002572 


001404 




73 


002574 


026060 


OOOOOOG OOOOOOC 


74 


002602 


001004 




75 


002604 


162700 


000002 


76 


002610 


002361 




77 


002612 


000407 




78 


002614 


062705 


OOOOOOG 


79 


002620 


020567 


OOOOOOG 


80 


002624 


103741 




81 








82 








S3 








84 


002626 


000261 




85 


002630 


000401 




86 








87 








88 








89 


002632 


000241 




90 








91 








92 








93 


002634 


012604 




94 


002636 


012602 




95 


002640 


000207 




96 








97 








98 








99 


002642 







6*: FABORT #EM*IAB i Invalid device 

Try to find existina entry for file in install table 



5*: 
1*: 



3«: 



13*: 



5*: 



MOV 
MOV 
MOV 
EMT 
TST 
BEQ 
MOV 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
SUB 

BR 
ADD 
CMP 
BLO 



INSTBL>R5 
R5, INGADR 
#INOEMT> RO 
375 



jPoint to 1st entry in table 

iSet address in EMT 

; Point to get EMT 

> Get next install table entry 



IIBUF+II*NAM(RO); Is this entry empty? 

2* ; Br if yes 

#6/ RO ;Get index to last word of name 

FILNAM<RO), #WLDNAM ; Wildcard? 

13* i Br if yes 

IIBUF+II*NAM<RO). #WLDNAM i Wildcard? 

13* ;Br if yes 

FILNAM(RO), IIBUF+II*NAM(RO) ; Compare names 

; Br if this is not right entry 

; More words to check? 

i Br if yes 

j Found entry 

j Point to next entry in table 

^Reached end of table? 

i Loop if not 



2* 

#2> RO 

3* 

4* 

#II**SZ>R5 

R5, INSTBN 

1* 



Cannot find entry in tablp 



SEC 
BR 



9* 



We found entry for this name 
4*; CLC 
Finished 



9*: 



MOV 
MOV 
RETURN 



(SP)+, R4 
(SP>+, R2 



Invalid file spec 
10*: FABORT #BDFNAM 



Signal failure on return 



Signal success on return 



I 
f 

I 
< 
I 

i 
i 
i 
f 
f 

1 
t 
I 
t 
I 



; Inval id file spec 



i 
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i 
( 
i 
i 
i 
c 
i 
f 
« 
I 
f 



I < 



a 








3 








4 








5 








6 








7 


002652 


016705 


OOOOOOG 


S 


002656 


010567 


0000000 


9 


002662 


012700 


OOOOOOG 


10 


002666 


104375 




11 


002670 


005767 


00000 IC 


12 


002674 


001411 




13 


002676 


062705 


OOOOOOG 


14 


002702 


020567 


OOOOOOG 


15 


002706 


103763 




16 








17 








18 








19 


002710 






20 








21 








22 








23 


002720 


000207 





Try to find a free entry in the instsli table. 

Outputs: 
R5 = Address of free entry in install table. 



INSFRE: MOV INSTBL, R5 

1*: MOV R5, INGADR 

MOV #INGEMT, RO 

EMT 375 

TST II*NAM+IitBUF 

BEQ 2* 

ADD #II**SZ,R5 

CMP R5, INSTBN 

BLO 1* 



No free table entries 
FABORT #EM*ITF 

Found free entry 
RETURN 



?*: 



i Point to 1st install table entry 

i Set address for EMT 

; EMT to get assign table entry 

; Get nest entry 

; Is this entry free?" 

i Br if found free entry 

* Point to next entry 

i Reached end of table? 

■> Loop if not 



; Install table full 



i 
I 
I 



( 
i 
i 
f 

I 

i 
i 
( 
I 
I 
i 
i 
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3 
4 
5 
6 

7 002722 010567 OOOOOOG 

8 002726 012700 OOOOOOG 

9 002732 104375 
10 002734 000207 



Write the current install entry into the install table. 

Inputs: 
R5 = Address in install table where entry is to go. 



INSPUT: MOV 
MOV 
EMT 
RETURN 



R5, INPADR 
#INPEMT, RO 
375 



i Set address for EMT 

} Point to EMT 

; Store install table entry 



I 
* 

f 



< 

( 

i 
C 
I 
f 
i 
C 
I 
( 

i 



TSKM2A - 
INSTALL 

i 

3 
4 
5 
6 
7 
S 
9 
10 
11 



14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
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002736 010446 



002740 012704 000000' 
002744 004767 OOOOOOG 



002750 012604 
002752 000207 



002754 051467 175062 
002760 000207 



Process command options specified with an INSTALL command. 

Inputs: 
R3 = Pointer to option list. 

Outputs: 
R3 = Points past end of option list 

INSOPT: MOV R4, -<SP) 

Process list of options 

MOV #INSHD, R4 
CALL OPTLST 



jPoint to table of options 
J Process an option list 



Finished 



MOV <SP)+, R4 
RETURN 



Subroutine called to set a specific install attribute flag 

Inputs: 
R4 = Pointer to option table entry. 

Outputs: 
lATTRB = Combined attribute flags 



INSATR: BIS (R4),IATTRB 
RETURN 



i Set attribute flag 
; Finished 



I i 



► c 

I 

h 



TSKIi2A — Keyboard command rout MACRO V05. 05 
MOUNT command 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 

55 003172 

56 003176 

57 003200 



002766 

002776 
003000 
003004 
003006 
003010 
003014 
003020 
003022 
003032 



003036 
003040 
003042 
003052 
003056 
003062 
003066 
003070 
003074 
003100 
003104 
003106 



003110 
003116 
003122 
003124 
003126 
003134 
003136 
003140 
003154 
003160 
003166 



105067 

1 TTaTT 

001775 
124327 
001014 
005203 
012704 
004767 
103004 



004767 
016702 
020267 
001002 
016702 
010267 
122327 
001401 
005303 



016767 
012700 
104375 
103022 
123727 
001016 
010005 

004767 

000167 



004767 
105713 
001002 
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SBTTL MOUNT comm«riu 



I 
f 



004767 0000000 



Mount a file structure. 

This command has two possible forms: 

MOUNT dev — Simply enable directory caching 

MOUNTC/CN03WRITE3 LDn file-spec C log ical-name3 — Mount logical disk 

CMDMNT: CALL CVTTAB ; CONVERT TAB AND FF CHARS TO SPACES 

Determine if a command switch was specified 



OOOOOOG 
000040 

000057 



000160' 
OOOOOOG 



.$; 



111467 OOOOOOG 



105713 
00 1 004 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
000072 



3$: 



12*: 



15*: 



OOOOOOG OOOOOOG 4*: 
OOOOOOG 



OOOOOOG 000001 



OOOOOOG 
OOOOOOG 

OOOOOOG 



5*: 



CLRB 


NOFLAG 


CMPB 


(R3)+,#' 


BEQ 


1* 


CMPB 


-(R3),#'/ 


BNE 


3* 


INC 


R3 


MOV 


#MTOPHD. R4 


CALL 


SEARCH 


BCC 


2* 


FABORT 


#INVOPT 


MOVB 


< R4 ) , NOFLA<- 



Get device name 



TSTB 


(R3) 


BNE 


12* 


FABORT 


#ILLCMD 


CALL 


GTRD50 


MOV 


R50BUF, R2 


CMP 


R2, R50LD 


BNE 


15* 


MOV 


R SOLDO. R2 


MOV 


R2, MNTDEV 


CMPB 


<R3)+, #': 


BEQ 


4* 


DEC 


R3 



; ASSUME /NOWRITE NOT WANTED 
;SKIF ANY LEADING SPACES 

WAS A SWITCH SPECIFIED? 

BR IF NOT 

SKIP PAST / 

POINT TO TABLE OF SWITCHES 

LOOK UP THE SWITCH 

BR IF FOUND 

INVALID SWITCH 

REMEMBER IF NOWRITE SEEN 



IS THERE A DEVICE NAME? 

BR IF YES 

INVALID COMMAND 

GET DEVICE NAME 

PICK UP DEVICE NAME 

IS NAME "LD"? 

BR IF NOT 

TRANSLATE LD TO LDO 

SAVE DEVICE NAME 

WAS DEVICE NAME TERMINATED WITH COLON? 

BR IF YES 

BACKUP POINTER IF NOT 



See if device we are mounting is allocated to another user 



MOV MNTDEV, ALCDEV 

MOV #TALEMT> RO 

EMT 375 

BCC 5* 

CMPB @#ERRL0C,#1 

BNE 5* 

MOV RO, R5 

FERR #EM*DAA 

CALL PRTDEC 

PRINT #CRLF 

JMP RDCMD 



Set device name for allocation EMT 

Point to EMT argument block 

Check for allocation conflict 

Br if no allocation failure 

Device allocated to another user? 

Br if not 

Save # of job that owns the device 

Device allocated to job 

Print # of job that owns device 

End print line 

Abort command 



See if there is a file name specified. 



CALL 


SKPSPC 


TSTB 


<R3) 


BNE 


MNTLD 



i Sk ip any spaces 

; Was a file name specified? 

i BR IF YES 



I 



i 

€ 
I 

i 
i 
f 



1 
I 
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58 003202 000167 000346 JMP MNTCSH -NO FILE NAME — GO ENABLE DIRECTORY CACHING 



I 

f 

I ( 

I 

I 

I 

I' 



i 
I 
( 

4 

i 
< 
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3 
4 
5 
6 
7 
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This is a MOUNT command with a file name. 

We are mounting a logical disk. 

Make sure Logical Disk support was genned into system. 



003206 
003212 
8 003214 
9 
10 
11 

12 003224 

13 003226 

14 003232 

15 003234 

16 003244 
17 

IS 
19 

20 003246 

21 003252 
22 

23 
24 

26 003264 

27 003270 

28 003272 
29 

30 
31 

32 003276 

33 003302 

34 003304 

35 003310 

36 003312 
37 

38 
39 

40 003322 

41 003326 
42 

43 
44 

45 003332 

46 003336 

47 003342 

48 003344 

49 003346 

50 003350 
51 

52 
53 

54 003360 

55 003364 
56 

57 



105767 
001004 



OOOOOOG 



MNTLD: TSTB VLDSYS 
BNE 18S 
FABORT #EM*NLD 



WAS LD SUPPORT GENNED IN? 

BR IF YES 

LD SUPPORT NOT GENNED IN 



Make sure the logical disk name is ok. 



010200 
004767 
103004 

010002 



016705 
004767 



112/6/ 
012700 
104375 
105067 



012704 
005005 
004767 
103004 



000411 



IS*: MOV R2, RO 

CALL LDDEVN 

BCC 6* 

FABORT #INVLDN 

6*: MOV RO, R2 



; GET LD DEVICE NAME 

i GET LD DEVICE INDEX NUMBER 

;BR IF OK 

; ERROR IF NAME IS NOT LD 

; CARRY INDEX IN R2 



Close the log file if it is on the logical disk 



OOOOOOG 
OOOOOOG 



OOOOOI 
OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV 
CALL 



MNTDEV, R5 
LOGCHK 



; GET NAME OF LOGICAL DEVICE 

;SEE IF WE NEED TO CLOSE THE LOG FILE 



OOOOOOG 



MOVB 


#1> SERFLG 


MOV 


#DMTARG, RO 


EMT 


375 


CLRB 


SERFLG 



Tell system to stop doing directory caching for the device 



i DO . SERR TO AVOID ABORT FOR ILLEGAL DEVICE 

; POINT TO EMT ARGUMENT BLOCK 

; TELL SYSTEM TO STOP DOING CACHING 

; DO . HERR 



Accrue the file name 

SET DEFAULT FILE EXTENSION 
SAY THIS IS AN INPUT FILE 
ACCRUE THE FILE SPEC 
BR IF OK 
5*: FABORT #BDFNAM ; INVALID FILE SPEC 

Translate logical file device name to physical device 



MOV 


#R50DSK> R4 


CLR 


R5 


CALL 


ACRFIL 


BCC 


13* 



012705 OOOOOOG 
004767 OOOOOOG 



13*: MOV #FILNAM, R5 
CALL LOOASN 



; POINT TO FILE SPEC AREA 

i PERFORM ANY LOGICAL DEVICE ASSIGNMENT 



016700 
004767 
103406 
020002 
103404 



OOOOOOG 
000302 



Make sure file is not on same LD as is being mounted 

iGET DEVICE THAT FILE IS ON 
i SEE IF FILE IS ON A LD DEVICE 
; BR IF NOT ON LD DEVICE 
; IS IT ON LOWER # LD? 
iBR IF YES 
FABORT #INVLDM i INVALID LD ORDER 

Make sure the file name is not null 



MOV 


FILNAM, RO 


CALL 


LDDEVN 


BCS 


17* 


CMP 


RO, R2 


BLO 


17* 



005767 000002G 
001752 



17*: 



TST 
BEQ 



FILNAM+2 
5* 



i Is file name nullT' 
; Br if yes — Error 



I 

c 

I 
i 
i 
i 

i 
i 

i 
i 
c 

i 

i 

i 

( 

4 
( 

I 

4 



Move file name into loaical disk name table 



I 



I. 



I 

t 
i 
t 
< 

i 

4 

f 
1 
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se 

59 
60 
61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



003366 010205 

003370 006305 

003372 006305 

003374 062705 

003400 012704 

003404 012425 

003406 012425 

003410 012425 

003412 011415 



OOOOOOG 
OOOOOOG 



MOV 


R2>R5 


ASL 


R5 


ASL 


R5 


ADD 


#LDNAME, R5 


MOV 


#FILNAM, R4 


MOV 


(R4)+, <R5) + 


MOV 


<R4)+, (R5)t- 


MOV 


<R4)+, <R5)+ 


MOV 


<R4), (R5) 



; GET LOGICAL DISK UNIT # 
i #4 WORDS PER ENTRY 

POINT TO ENTRY IN LOGICAL DISK TABLE 
POINT TO FILE NAME BUFFER 
MOVE NAME TO TABLE 



Set up flags for logical disk 



003414 
003416 
003422 
003424 
003430 



005004 
105767 
001402 
052704 
010462 



OOOOOOG 

OOOOOOG 
OOOOOOG 



9*: 



CLR 


R4 


TSTB 


NOFLAG ■> 


BEG 


9* i 


BIS 


#LD*RON, R4 J 


MOV 


R4, LDFLAG<R2) 



WAS NOWRITE SPECIFIED? 

BR IF NOT 

SET READ-ONLY FLAG 



Lookup file and set up information about position of logical 
disk on physical disk. 



003434 
003440 
003442 



003452 
003454 
003456 
003460 
003464 
003472 
003516 



004767 OOOOOOG 
103004 



CALL LDMNT 
BCC 10* 
FABORT #CSIMS4 



^*r^ n^ 



ote( 



010205 
006305 
006305 
062705 
112767 



10*: 



OOOOOOG 
000001 



OOOOOOG 



MOV 


R2, R5 


ASL 


R5 


ASL 


R5 


ADD 


#LDNAME. R5 


MOVB 


#1,SERFLG 



SET UP INFO ABOUT FILE FOR LOGICAL DISK 
BR IF FOUND FILE 
CAN'T FIND FILE 



; GET LOGICAL DISK UNIT # 
; * 4 WORDS PER ENTRY 

; POINT TO ENTRY WITH FILE NAME 

i DO . SERR TO AVOID ABORTS ON ERRORS 



. FPROT #XAREA, #1, R5, #1 



105067 OOOOOOG 



CLRB SERFLG ; DO . HERR 

See if a logical device name was specified following the file name 



000040 



16*: 



003526 
003530 
003532 



003534 
003540 
003544 
003550 



003554 
003560 



001775 
105743 
001410 



004767 
016705 
016700 
004767 



012700 
004767 



CMPB 


(R3)+, #' 


BEG 


16* 


TSTB 


-<R3) 


BEQ 


MNTCSH 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
000010 



J SKIP BLANKS 

i WAS A LOGICAL DEVICE NAME SPECIFIED? 
i BR IF NOT 



Assign logical name to logical disk 

ACCRUE LOGICAL DEVICE NAME 
GET LOGICAL DEVICE NAME 
GET PHYSICAL DEVICE NAME 
DO THE ASSIGNMENT 

Initiate directory caching for the device uihose name is in MNTDEV 



CALL 


GTRD50 


MOV 


R50BUF, R5 


MOV 


MNTDEV, RO 


CALL 


DOASGN 



MNTCSH: MOV #MNTARG. RO 
CALL DOMNT 



; POINT TO MOUNT ARGUMENT BLOCK 
i ENABLE CASHING FOR DEVICE 



I 
i 
f 

f 

f 
I 

i 

i 
i 
t 

f 

( 



Now do a SET LD CLEAN operation to make sure all logical disks 
are set up correctly 
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iiS ■> 

116 003564 004767 OOOOOOG CALL LDCLEN J DO SET LD CLEAN 

117 s 

lis i Finished with MOUNT command 

119 i 

120 003570 000167 OOOOOOG JMP RDCMD 



€ 
I 

< 



i 
I 
I 
I 

i 
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3 








4 








5 








6 








7 








e 


003574 


104375 




9 


003576 


103021 




10 








11 








12 








13 


003600 


123727 


OOOOOOG 


14 


003606 


001007 




15 


003610 






16 


003624 


000406 




17 


003626 






IS 








19 








20 








21 


003642 


000207 




22 








23 








24 








25 








26 








27 








28 








29 








30 








31 








32 








33 








34 








35 


003644 


020067 


OOOOOOG 


36 


003650 


001002 




37 


003652 


016700 


OOOOOOG 


38 


003656 


020067 


OOOOOOG 


39 


003662 


103410 




40 


003664 


020067 


OOOOOOG 


41 


003670 


101005 




42 


003672 


166700 


OOOOOOG 


43 


003676 


006300 




44 


003700 


000241 




45 


003702 


000401 




46 


003704 


000261 




47 


003706 


000207 





DOMNT is called to execute a mount or > dismount EMI and check for 
errors. If an error is detected* an error message is generated. 

Inputs: 
RO = Address of EMT argument block for mount or dismount emt. 



DOMNT: EMT 375 
BCC 9* 



1 DO THE EMT AMOUNT OR DISMOUNT) 
;BR IF NO ERROR 



Error on mount or dismount emt. 



CMPB 


€#ERRLOC, #1 


BNE 


2* 


FWARN 


#MNTFUL 


BR 


9* 


2*: FERR 


#BDFNAM 


i Finished 




9*: RETURN 





i MOUNT TABLE OVERFLOW? 

; BR IF NOT 

; MOUNT TABLE OVERFLOW 

J INVALID DEVICE NAME 



LDDEVN is called to determine if a device name is of the form LDn and 

if soj to determine the unit number. 



Inputs: 
RO = Device name <rad50) 

Outputs: 
C-flag cleared ==> Device is LDn 
C-fiag set ==> Device is not LDn 
RO = LD device index number (2-K-n) 



LDDEV 


N: CMP 


RO, R50LD 




BNE 


1* 




MOV 


R50LD0, RO 


1*: 


CMP 


RO, R SOLDO 




BLO 


2* 




CMP 


RO, R50LD7 




BHI 


2* 




SUB 


R50LD0, RO 




ASL 


RO 




CLC 






BR 


3* 


2*: 
3$: 


SEC 
RETURN 





Is name "LD"? 

Br if not 

Replace "LD" by "LDO" 

Is name in the range LDO to LD7? 

Br if not 



; Get unit number only 

; Convert to device index number 

; Signal success on return 

i Signal failure on return 



4 

I 

( 
( 

( 



1 1 



I 



I 
I 

( 

i 



M 
< 

I 
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3 








4 








5 
6 


003710 


004767 


OOOOOOG 


7 

8 








9 


003714 


105067 


174124 


10 


003720 


004767 


OOOOOOG 


11 


003724 


121327 


000057 


12 


003730 


001004 




13 








14 








15 








16 


003732 


012704 


000174' 


17 


003736 


004767 


OOOOOOG 


18 








19 








20 








21 


003742 


004767 


OOOOOOG 


22 


003746 


105713 




23 


003750 


001004 




24 


003752 






25 








26 








27 








28 


003762 


004767 


OOOOOOG 


29 


003766 


016700 


OOOOOOG 


30 


003772 


001767 




31 


003774 


004767 


OOOOOOG 


32 


004000 


103403 




33 


004002 


016200 


OOOOOOG 


34 


004006 


000772 




35 


004010 


020067 


OOOOOOG 


36 


004014 


001002 




37 


004016 


016700 


OOOOOOG 


38 


004022 


010067 


OOOOOOG 


39 








40 








41 








42 


004026 


016705 


OOOOOOG 


43 


004032 


004767 


OOOOOOG 


44 








45 








46 








47 


004036 


105767 


174002 


48 


004042 


001013 




49 


004044 


016705 


OOOOOOG 


50 


004050 


004767 


OOOOOOG 


51 


004054 


103406 




52 


004056 


004767 


OOOOOOG 


53 


004062 


103003 




54 


004064 






55 








56 








57 
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. SBTTL DISMOUNT command 

Dismount a file structure. 

CMDDMT: CALL CVTTAB > CONVERT TAB AND FF CHARS TO SPACES 

See if any qualifier were specified following command keyword 

J Clear flag set if /NDLOG specified 
J Skip over any spaces 
i Any qualifiers here? 
j Br if not 

Process qualifier following command keyword 



CLRB 


DMTNLG 


CALL 


SKPSPC 


CMPB 


<R3),#'/ 


BNE 


5* 



MOV #DMTQHD> R4 
CALL OPTLST 



; Point to parsing table 
i Process any qualifiers 



Skip leading spaces and make sure a device name was specified 



5*: CALL SKPSPC 

TSTB (R3) 

BNE 6* 

7*; FABORT #ILLCMD 



SKIP LEADING SPACES 

WAS A DEVICE NAME SPECIFIED 

BR IF YES 

INVALID COMMAND IF NO DEVICE NAME 



Get name of device that is being dismounted 

6*: CALL GTRD50 i ACCRUE THE DEVICE NAME 

GET DEVICE NAME 
BR IF NO DEVICE NAME 

?*: CALL ASNSRC i SEE IF IT IS A LOGICAL NAME 

BR IF NOT 
GET ASSIGNED NAME 
ALLOW INDIRECT ASSIGNS 
IS NAME "LD"? 
BR IF NOT 

TRANSLATE LD TO LDO 
SAVE NAME OF DEVICE BEING DISMOUNTED 

Close the log file if it is on the device being dismounted 



1$: 



4$: 



CALL 


GTRD50 


MOV 


R50BUF, RO 


BEG 


7* 


CALL 


ASNSRC 


BCS 


1* 


MOV 


AT*DEV<R2),R0 


BR 


2* 


CMP 


RO, R50LD 


BNE 


4* 


MOV 


R SOLDO, RO 


MOV 


RO, MNTDEV 



MOV 
CALL 



MNTDEV, R5 
LOGCHK 



} GET NAME OF DEVICE BEING DISMOUNTED 
i SEE IF LOG FILE IS ON THAT DEVICE 



Print information message if device is still mounted by other jobs 

Was /NOLOG qualifier specified? 
Br if yes — Suppress information message 
GET NAME OF DEVICE BEING DISMOUNTED 
IS THIS DEVICE MOUNTED? 
BR IF NOT 

IS DEVICE MOUNTED BY ANYONE OTHER THAN US? 
BR IF NOT 
.PRINT #INFOMT i STILL MOUNTED BY OTHER USERS 

Tell system to stop doing directory caching for the device 



TSTB 


DMTNLG 




BNE 


3* 




MOV 


MNTDEV, 


R5 


CALL 


CHKMNT 




BCS 


3* 




CALL 


CHKMTX 




BCC 


3* 





I 

f 



€ 
I 
f 

f 

I 

< 
I 
i 
< 
I 
( 



i 
i 
i 



c 

I 
I 

{ 

( 



\i 



I 

c 

I 

i 



TSKM2A — Keyboard command rout MACRO V05. 05 
DISMOUNT command 



Thursday 19-Jan-e9 14: 53 Page 25-1 



53 004072 

59 004100 

60 004104 

61 004106 
62 

63 
64 

65 004112 

66 004116 

67 004122 
6e 004124 

69 004130 

70 004132 

71 004136 

72 004140 

73 004144 

74 004146 

75 004150 

76 004154 

77 004160 
78 

80 

81 004164 

82 004170 
83 

84 
85 

86 004174 

87 004200 



112767 
012700 
104375 
105067 



016702 
020267 
103420 
020267 
101015 
166702 
006302 
005062 
006302 
006302 
005062 
016700 
004767 



000001 OOOOOOG 3$: 

ooooooe 

OOOOOOG 
OOOOOOG 

ooooooe 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



MOVE 


#1; 3ERFLG 


MOV 


#DMTARG. RO 


EMT 


375 


CLRB 


SERFLG 



.= DO . 3ERR TO AVOID ABORT FOR ILLEGAL DEVICE 

i POINT TO EMT ARGUMENT BLOCK 

i TELL SYSTEM TO STOP DOING CACHING 

; DO . HERR 



See if a logical disk is being dismounted 



004767 OOOOOOG 
000167 OOOOOOG 



105267 173644 
000207 



MOV 


MNTDEV, R2 


CMP 


R2, R SOLDO 


BLO 


9* 


CMP 


R2, R50LD7 


BHI 


9* 


SUB 


R SOLDO, R2 


ASL 


R2 


CLR 


LDPDEV<R2) 


ASL 


R2 


ASL 


R2 


CLR 


LDNAME<R2) 


MOV 


MNTDEV, RO 


CALL 


DEADEV 


t Finished 




> 

9*; CALL 


LDCLEN 


JMP 


RDCMD 


i Process /NOLOG qualifie 

i 



DMTNLQ: INCB DMTNLG 
DMTLGQ: RETURN 



GET DEVICE NAME 

IS THIS A LOGICAL DISK? 

BR IF NOT 



i GET UNIT # 

} CONVERT TO WORD INDEX 

; NO PHYSICAL DEVICE ASSIGNMENT 

;GET INDEX INTO LDNAME TABLE 

NO FILE NAME 

GET NAME OF LOGICAL DISK 

DE ASSIGN ANY LOGICAL NAMES 



; RESET INFORMATION ABOUT LOGICAL DISKS 
; FINISHED WITH COMMAND 



j Remember qualifier specified 



I 
I 

c 

I 

< 

i 

i 

i 
i 
i 
I 
I 



i 
t 
I 
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INITIALIZE command 



3 








4 








5 








6 








7 








8 


004202 






9 


004202 






10 


004202 






11 








12 








13 








14 


004202 


032767 


OOOOOOC 0000000 


15 


004210 


001004 




16 


004212 






17 








18 








19 








20 


004222 


004767 


OOOOOOG 


21 


004226 


121327 


000057 


22 


004232 


001005 




23 


004234 


1 1 2300 




24 


004236 


001407 




25 


004240 


12002/ 


000040 


26 


004244 


001373 




27 








28 








29 








30 


004246 


004767 


OOOOOOG 


31 


004252 


105713 




32 


004254 


001004 




33 


004256 






34 


004266 


004767 


OOOOOOG 


35 


004272 


016705 


OOOOOOG 


36 


004276 


010567 


OOOOOOG 


37 


004302 


010567 


173472 


38 


004306 


010567 


OOOOOOG 


39 








40 








41 








42 


004312 


004767 


000232 


43 


004316 


103004 




44 


004320 






45 








46 








47 








48 


004330 


004767 


OOOOOOG 


49 


004334 


103412 




50 








51 








52 








53 








54 


004336 


004767 


OOOOOOG 


55 


004342 


103004 




56 


004344 






57 
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, SBTTL INITIALIZE tojiimiand 
. SBTTL SQUEEZE command 
. SBTTL FORMAT command 



Disallow INITIALIZE and SQUEEZE commands if any other users have 
the specified device mounted. 

CMDINI 
CliDSQZ 
CMDFMT 

> 

i See if user is authorized to use these commands 

BIT #P0*NFW!P0*BYP, PRIVCO i Authorized for these commands? 

BNE 13* i Br if yes 

FABORT #EM$NFW ; Not authorized for this command 

i 

; Sk ip over any options specified with command keyword 

i 

13*: CALL CVTTAB i Convert tabs to spaces 

Were any keyword options specified? 

Br if not 
1*: MOVB <R3)+, RO j Get next character from command 

Br if no device was specified 

Is this a space? 

Keep looking if not 

Accrue the device name 



CALL 


CVTTAB 


CMPB 


<R3),#V 


BNE 


10* 


MOVB 


<R3)+, RO 


BEQ 


15* 


CMPB 


R0> #40 


BNE 


1* 



10*: 



15*: 
14*: 



CALL SKPSPC 

TSTB <R3) 

BNE 14* 

FABORT #EM*DNR 

CALL GTRD50 

MOV R50BUF, R5 

MOV R5, MNTDEV 

MOV R5, SQZDEV 

MOV R5, ALCDEV 



iSkip over any spaces 

i Was a device name specified? 

; Br if yes 

J Device name is required 

j Accrue the device name 

j Set name for mount/dismount 

j Save name of device being squeezed 

i Set name for test-allocation EMT 



Disallow SQUEEZE/INITIALIZE/FORMAT of any disk with a system file 



CALL CKSYDV 
BCC 11* 
FABORT #EM*SSY 



; See if device has any system files 

i Br if not 

; Can 't do this to SY 



See if this device is mounted by anyone 



11*: 



CALL 
BCS 



CHKMNT 
8* 



J See if device is mounted by anyone 
; Br if not 



This device is in the mount table (R5=pointer to entry). 
See if this device is mounted by any other users 



3*: 



CALL CHKMTX 
BCC 2* 
FABORT #OTRMNT 



i Is device mounted by any other users? 

; Br if not 

; Command not legal if mounted by others 



i 
I 
f 



I 
c 

i 

1 
I 
< 

I 

I 



i 
t 
f 
{ 
I 



< 

f 
i 



i 
i 
I 
f 
f 



I 
c 

I « 

t 
t 

( 
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58 








59 








60 








61 


004354 


O12700 


OOOOOOG 


62 


004360 


104375 




63 








64 








65 








66 


004362 


120467 


OOOOOOG 


67 


004366 


001404 




68 


004370 


016700 


OOOOOOG 


69 


004374 


004767 


OOOOOOG 


70 








71 








72 








73 








74 


004400 


016705 


173374 


75 


004404 


004767 


OOOOOOG 


76 


004410 


020467 


OOOOOOG 


77 


004414 


001406 




78 


004416 


005002 




79 


004420 


012703 


1777 7/ 


80 


004424 


000300 




81 


004426 


050004 




82 


004430 


000410 




83 


004432 


006300 




84 


004434 


016004 


OOOOOOG 


85 


004440 


016002 


OOOOOOG 


86 


004444 


010203 




87 


004446 


066003 


OOOOOOG 


88 








89 








90 








91 


004452 


016705 


OOOOOOG 


92 


004456 


010500 




93 


004460 


004767 


OOOOOOG 


94 


004464 


020467 


00000 IC 


95 


004470 


001014 




96 


004472 


016700 


00000 IC 


97 


004476 


001411 




98 


004500 


020002 




99 


004502 


101407 




100 


004504 


020003 




101 


004506 


103005 




102 








103 








104 








105 








106 


004510 


004767 


OOOOOOG 


107 


004514 


103713 




108 








109 








110 








111 


004516 


004767 


OOOOOOG 


112 








113 








114 
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Dismount and remount this device to clean out all file entries 
associated with this device. 



2*: 



MOV #MNTARG.. RO 
EMT 375 



; Remount the device 



8$: 



CMPB 


R4, LDDEVX 


BEQ 


12* 


MOV 


ALCDEV, RO 


CALL 


CHKALC 



4*: 



See if this device is allocated to any other user 

j Is this a logical disk? 

J Br if yes — Don't check for allocation 

j Get RAD50 device name 

j See if device is allocated to anyone else 

Remove from mount table any logical disks that are on the device 
being squeezed or initialized. 

12*: MOV SQZDEV, R5 i Get back device name 

Convert device name to dev # & unit # 

Is this a logical disk?" 

Br if yes 

Say base block # = 

Say top block == 177777 

Put unit # in high byte 

Get unit # and device # together 

Convert unit # to word table index 
Get physical dev # and unit # 

> Get base block of logical disk 

> Get top block number of logical disk 

Search for any mounted logical disks that are on the disk being stiueezed 

5*: MOV CSHDEV, R5 ; Point to start of mount table 
7*: MOV R5/ RO > Get address of mount entry 

Copy mount entry into CDBUF 

Is this device on same physical device? 

Br if not 

Is this a logical disk? 

Br if not 

See if logical disk is within disk being sqze 

Br if not 

Compare upper range 

We found a logical disk within the disk being squeezed. 
See if anyone else has that logical disk mounted. 



MOV 


SQZDEV, R5 




CALL 


CHKDEV 




CMP 


R4, LDDEVX 




BEQ 


4* 




CLR 


R2 




MOV 


#177777. R3 




SWAB 


RO 




BIS 


RO, R4 




BR 


5* 




ASL 


RO 




MOV 


LDPDEV<RO), 


R4 


MOV 


LDBASE<RO>, 


R2 i 


MOV 


R2, R3 




ADD 


LDSIZE<RO), 


R3 ; 



MOV 


CSHDEV, R5 


MOV 


R5, RO 


CALL 


CDGET 


CMP 


R4, CDBUF+CD*DVU 


BNE 


6* 


MOV 


CDBUF+CD$BAS, RO 


BEQ 


6* 


CMP 


RO, R2 


BLOS 


6* 


CMP 


RO, R3 


BHIS 


6* 



CALL 
BCS 



CHKMTX 
3« 



iAnyone else have this logical disk mounted? 
; Error if yes 



Dismount this logical disk and any files associated with it 

CALL DMTSUB ; Do the dismount 

Check for more nested loqical disks 



I 
I 
f 

I 

c 
< 
( 
f 
< 

( 

< 

I 

4 
i 
i 
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115 004522 062705 OOOOOOG 

116 004526 020567 0000000 

117 004532 103751 
118 

119 
120 
121 

122 004534 016705 173240 

123 004540 004767 OOOOOOG 
124 

125 
126 



6$; 



ADD 


#CD$*SZ.. R5 


CMP 


R5, C3HDVN 


BLO 


7* 



j Point to next mount table entry 
j Reached end of table? 
; Loop if not 



See if log file is opened to device being squeezed 
If so, close it. 



MOV 



SQZDEV, R5 
LOGCHK 



> Get name of device being squeezed 
; See if log file is on that device 



Call CCL to process the command 
9'*: JMP CMDCCL iCail CCL to process the command 



i 

i 
i 
i 
i 



I f 

i « 

' i 
i 
f 

f 

I ., 

( 

i 

I ( 
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3 








4 








5 








6 








7 








8 








9 








10 








11 


004550 


010246 




12 


004552 


010346 




13 


004554 


010446 




14 


004556 


010546 




15 








16 








17 








IS 


004560 


004767 


OOOOOOG 


19 


004564 


103422 




20 








21 








22 








23 








24 


004566 


012705 


004646 ' 


25 


004572 


012503 




26 


004574 


001416 




27 


004576 


016302 


OOOOOOG 


28 


004602 


042702 


177701 


29 


004606 


020204 




30 


004610 


001370 




31 


004612 


116302 


OOOOOOG 


32 


004616 


042702 


177770 


33 


004622 


020200 




34 


004624 


001362 




35 








36 








37 








38 


004626 


000261 




39 


004630 


000401 




40 








41 








42 








43 


004632 


000241 




44 








45 








46 








47 


004634 


012605 




48 


004636 


012604 




49 


004640 


012603 




50 


004642 


012602 




51 


004644 


000207 




52 








53 








54 








55 


004646 


0000000 




56 


004650 


OOOOOOG 




57 


004652 


OOOOOOG 





Check to see it a device being squeezed or initialized contains any 
system files. 

Inputs: 
R5 = RadSO device name of device being squeezed or initialized 



Outputs: 
C-flag set ==> This device contains system files 



CKSYDV: MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R3, ~<SP) 
R4» -(SP ) 
R5. -<SP) 



Convert device name to device index and unit number 



CALL 
BCS 



CHKDEV 
8$ 



; Convert name to device index ?< unit # 
i Br if device name not recognized 



1$: 



At this point: RO = unit number/ R4 = device index number. 
Begin loop to check each system file savestatus block. 

i Point to vector of savestatus addresses 

;Point to next savestatus block 

i Br if reached end of list 

; Get 1st word of channel 

; Extract device index number 

; Does it match device being squeezed? 

j Br if not 

i Get unit number 

j Extract unit number 

i Same as unit of device being squeezed? 

.i Br if not 

This device contains a system file 



MOV 


#SYFLVC. R5 


MOV 


(R5)+, R3 


BEQ 


8* 


MOV 


C. CS\4(R3)> R2 


BIC 


#-^C<76>, R2 


CMP 


R2>R4 


BNE 


1* 


MOVE 


C. DEVQ<R3)>R2 


BIC 


#-^C<7>, R2 


CMP 


R2, RO 


BNE 


1* 



SEC 
BR 



Signal error on return 



9* 



This device does not contain a system file 



8*: CLC 
Fini shed 
9$: 



; Signal no error 



MOV 


(SP)+, 


R5 


MOV 


(SP)+, 


R4 


MOV 


<SP)+, 


R3 


MOV 


(SP)+, 


R2 


RETURN 







List of addresses of savestatus blocks for system files 



SYFLVC : 



WORD 
WORD 
WORD 



SWPCHN 
SEGCHN 
SPLCHN 



i Swap file 

; PLAS swap file 

i Spool file 



i 
I 
I 
( 
i 
i 
i 
i 
i 
I 
i 
i 
I 
I 
( 
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i 

i 

i 
I 
i 
I 
i 

i 



59 004656 

60 004660 

61 004662 

62 004664 



s-/ v/ Vj* vy W w tr 

ooooooe 

OOOOOOG 
OOOOOOG 
000000 



WORD 


KMNCHN 


WORD 


CCL3AV 


WORD 


INDSAV 


WORD 


INDTSV 


WORD 






TSKMON. SAV 
CCL. SAV 
IND. SAV 
TSXIND. TSX 
End of list 



I 

i 
i 
< 

€ 
I 

i 
f 
4 
I 

C 

I 

{ 



I < 

I 

I* 

I 
i 

i 

• i 
' i 



TSKM2A ■ 
MONITOR 



3 
4 
5 
6 
7 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 



— Keyboard 
command 



command rout MACRO V05. 05 Thursday 19-Jan~89 14:53 Page 28 



004666 
004672 
004676 
004702 
004706 
004712 
004716 
004722 
004724 
004730 
004734 
004736 
004740 
004744 
004746 
004752 
004756 
004760 
004762 
004766 
004770 
004774 
005000 
005002 
005012 
005016 



005020 
005024 
005026 
005030 
005034 
005036 
005046 
005050 
005064 
005066 
005072 
005100 
005104 
005110 
005112 



005116 



005067 
005067 
004767 
004767 
004767 
010167 
122327 
001075 
004767 
010167 
112300 
001430 
120027 
001006 
004767 
010167 
112300 
001417 
120027 
001053 
012704 
004767 
103004 

051467 
000757 



012700 
104375 
103026 
105737 
001404 

010046 

012605 
004767 

000167 
012700 
104375 
000167 



OOOOOOG 
0000000 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000054 

OOOOOOG 
OOOOOOG 



000054 

OOOOOOG 
OOOOOOG 



000057 

000234 ' 
OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 



SBTTL MQNIiUH command 



The MONITOR command is used to initiate performance monitoring. 

The form of the command is: 

MONITOR base-address^ top-addressE/ #-by tes-per-cel 1 3/suiitches 



CMDMON: CLR 


MNFLGS 


CLR 


MNBPC 


CALL 


CVTTAB 


CALL 


DELSPC 


CALL 


ACROCT 


MOV 


R 1 , MNBASE 


CMPB 


<R3)+, #'■> 


BNE 


3* 


CALL 


ACROCT 


MOV 


R 1 , MNTOP 


MOVE 


<R3)+, RO 


SEQ 


1* 


CMPB 


RO, #', 


BNE 


2* 


CALL 


ACRDEC 


MOV 


Rl, MNBPC 


4$: MOVB 


(R3)+,R0 


BEQ 


1« 


2$: CMPB 


RO, #'/ 


BNE 


3* 


MOV 


#MONHD, R4 


CALL 


SEARCH 


BCC 


5* 


FAB OR T 


#INVOPT 


5*: BIS 


<R4>, MNFLGS 


BR 


4* 



; INITIALIZE EMT ARG BLOCK 

CONVERT TAB AND FF CHARS TO SPACES 
DELETE SPACES FROM COMMAND LINE 
ACCRUE BASE ADDRESS 
SET IN EMT ARG BLOCK 
COMMA SHOULD BE DELIMITER 

; ACCRUE TOP ADDRESS 

GET DELIMITER 

BR IF FINISHED WITH COMMAND 

DID HE SPECIFY NBPC? 

BR IF NOT 

ACCRUE NUMBER OF BYTES PER CELL 

GET DELIMITER 

BR IF END OF COMMAND HIT 

GOT A SWITCH? 

BR IF NOT 

POINT TO TABLE OF SWITCH OPTIONS 

SEARCH FOR SWITCH IN TABLE 

BR IF FOUND IT 

INVALID SWITCH 

SET BITS FOR SWITCH 

GO CHECK FOR MORE SWITCHES 



Finished scanning command. 
Initiate performance monitoring. 



1*: 



7*: 



6*: 



MOV 


#MONAR 1 , RO 


EMT 


375 


BCC 


6* 


TSTB 


e#ERRLOC 


BEQ 


7* 


FABORT 


#NOPMGN 


MOV 


RO, -<SP) 


FERR 


#PMBUSY 


MOV 


<SP)+, R5 


CALL 


PRTDEC 


. PRINT 


#CRLF 


JMP 


RDCMD 


MOV 


#M0NAR2, RO 


EMT 


375 


JMP 


RDCMD 



POINT TO EMT ARG BLOCK 

TRY TO INITIATE MONITORING 

BR IF OK 

CHECK ERROR CODE 

BR IF SOMEONE ELSE DOING MONITORING NOW 

PM NOT GENNED IN 

SAVE # OF PM USER 

PM FACILITY IN USE BY ANOTHER USER 

GET # OF PM USER 

PRINT DECIMAL VALUE 

TERMINATE THE ERROR LINE 

; START MONITORING 



I 

i 
t 

< 

i 



i 

f 
K 
i 
f 



Invalid command synta.x. 



3*: 



FABORT #CSIMS1 



f 
I 

I i 

I 
I i 

h 

I < 

I ( 

t 

I' 
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4 
J, 

2 
3 
4 
5 
6 
7 



8 005126 

9 005132 

10 005136 

11 005140 

12 005142 

1 n 
J. o 

14 

15 

16 005146 

17 

IS 

19 

20 005152 

21 005156 

22 005162 

23 005164 
24 

25 
26 

27 005172 

28 005174 

29 005200 

30 005204 

31 005206 

32 005212 

33 005216 

34 005220 

35 005226 

36 005230 

37 005236 

38 005240 

39 005244 
40 

41 

42 

43 005246 

44 

45 

46 

47 

48 005256 

49 005260 

50 005262 

51 005266 

52 005270 

53 005272 

54 005276 

55 005302 
56 

57 
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SBTTL SPOOL commciiid 



004767 
004767 
105713 
001002 
000167 



016700 
004767 

103403 
016267 



010346 
012703 
004767 
012603 
012701 
020127 
103013 
026127 
001404 
026761 
001407 
062701 
000762 



112300 
001424 
004767 
103773 
005303 
012704 
004767 
103401 



THE SPOOL COMMAND IS USED TO CONTROL THE OPERATION 
OF SPOOLED DEVICES. 
THE FORM OF THE COMMAND IS: 
SPOOL DEV, OPTION, OPTION 



OOOOOOG 
OOOOOOG 



OOOOOOG 



CMDSPO: CALL 
CALL 
TSTB 
BNE 
JMP 



CVTTAB 

CVTUC 

<R3) 

1* 

BADCMD 



CONVERT TAB AND FF CHARS TO SPACE 

Convert lower case chars to upper ca&e 

ANY DEVICE NAMED? 

BRANCH IF YES 

MUST HAVE DEVICE NAME 



004767 OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 



ACCRUE DEVICE NAME IN RAD50 FORM. 

1*: CALL GTRD50 i ACCRUE THE NAME 

If device name is a logical name* translate to physical 

MOV R50BUF, RO ; Get device name 

CALL ASNSRC i See if this name is assigned 

BCS 3* j Br if name is not assigned 

MOV AT*DEV(R2), R50BUF;Set physical device name 

NOW TRY TO FIND SDCB WHICH MATCHES NAME. 

3*: MOV R3, -(SP) .i SAVE POINTER 

i POINT TO DEVICE NAME 
i MAKE UNIT O IF NEEDED 
i RESTORE POINTER 
j POINT TO 1ST SDCB 

4*: CMP R1,#SDCBND i CHECKED ALL? 

i BRANCH IF YES 
SDNAME ( R 1 ) > #DMYDEVi I 5 this dummy device entry? 

j Br if yes 



MOV 


R3, ~<SP) 


MOV 


#R50BUF. R3 


CALL 


FORCEO 


MOV 


(SP)+, R3 


MOV 


#SDCB, Rl 


CMP 


R1,#SDCBND 


BHIS 


2* 


CMP 


SDNAME ( R 1 ) 


BEQ 


5* 


CMP 


R50BUF, SDN 


BEQ 


CSGTOP 


ADD 


#SDCBSZ.R1 


BR 


4* 



5*: 



CAN'T FIND SDCB FOR DEVICE. 
2*: F ABORT #INVDEV 



i BRANCH IF FOUND SDCB 
} GO CHECK NEXT SDCB 



FOUND SDCB <R1). 
IDENTIFY OPTION. 



OOOOOOG 



000260 ' 
OOOOOOG 



CSGTOP: 


MOVB 


(R3)+, RO 




BEQ 


3* 




CALL 


CHKDLM 




BCS 


CSGTOP 




DEC 


R3 




MOV 


#SPLHD, R4 




CALL 


SEARCH 




BCS 


1* 



iSKIP OVER ANY DELIMITERS 
; Br at end of command string 



POINT TO TABLE OF SPOOL OPTIONS 
LOOK UP OPTION 
BR IF ERROR 



I 
f 
t 



i 
I 

I 
< 
( 
< 

€ 

i 
i 

I 
€ 
t 
I 

I 



FOUND OPTION. BRANCH OFF TO OPTION PROCESSING ROUTINE. 
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58 

59 

60 005304 000134 

hi 

62 

63 

64 005306 005704 

65 005310 001404 

66 005312 

67 005322 
68 

69 
70 
71 005332 000167 OOOOOOG 



1«: 



?*: 



SDCB ADDRESS IS IN Rl. 

JMP @ ( R4 ) + 

ERROR IN SEARCH 

TST R4 

BEQ 2$ 

FABORT #AMBOPT 

FAB OR T #INVOPT 



i ILLEGAL OR AMBIGUOUS 
iBR IF ILLEGAL 
i AMBIGUOUS OPTION 
; ILLEGAL OPTION 



Reached end of command string (usually when handling multiple options) 
3*: JMP RDCMD 



I 

4 
€ 
I 

< 



i 
I 
c 
I 
i 
i 
i 
i 

i 
i 

( 



4 

i 



i 
i 
c 

t 

i i 

I 

I 

f 

t 

I 

I * 
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1 

2 








3 








4 








5 


005336 






6 








7 








8 








9 


005336 


105713 




10 


005340 


001425 




11 


005342 


121327 


000054 


12 


005346 


001403 




13 


005350 


121327 


000075 


14 


005354 


001001 




15 


005356 


005203 




16 








17 








18 








19 


005360 


004767 


OOOOOOG 


20 


005364 


010167 


172462 


21 


005370 


012700 


000046 •• 


22 


005374 


i0437D 




23 


005376 


103004 




24 


005400 






25 


005410 


00016/ 


OOOOUOW 


26 








27 








28 








29 


005414 


005761 


OOOOOOG 


30 


005420 


001405 




31 


005422 


152761 


0000000 


32 


005430 


000167 


0000000 


33 


005434 






34 


005442 


000772 





PROCESS THE 'DEL' (DELETE) OPTION. 
SPLDEL: 

See if a file ID was specified 



1*: 



TSTB 


<R3) 


BEQ 


SPDLCR 


CMPB 


(R3),#', 


BEQ 


1* 


CMPB 


<R3)>#' = 


BNE 


2* 


INC 


R3 



; Was an id specified? 

; Br if not 

i Comma used as delimiter? 

i Br if yes 

iEqual sign used as delimiter? 

i Br if not — space must have been delimiter 

iSkip over comma or equal sign 



A file id was specified, accrue the id value 

?*: CALL ACRDEC i Accrue the value 

Set file ID in EMT arg block 

Point to EMT arg block 

Try to delete the file 

Br if successful 

Cannot find file with that id 



V*: 



CALL 


ACRDEC 


MOV 


Rl.DELEMT+4 


MOV 


#DELEMT. RO 


EMT 


375 


BCC 


9* 


F ABORT 


#EM*NID 


JMP 


RDCMD 



Abort the file currently being printed by the spooled device 



SPDLCR: TST 
BEQ 
OOOOOOG BISB 

CSABT: JMP 



SDSFCB<R1) i IS DEVICE BUSY? 
SPNBSY i BRANCH IF NOT 

#SD«DEL, SDFLAG(Rl) ; SET DELETE FLAG 
RDCMD 



SPNBSY: . PRINT #DEVIDL 
BR CSABT 



I 
I 

c 

i 

< 
I 

< 

< 

t 
( 
I 
i 
I 

€ 



I 
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005444 
005450 
005454 
005456 

005466 
005470 
005504 
005506 



21 

22 



i 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

17 005510 
IS 005516 

19 005542 

20 005544 
005552 
005560 

23 

24 

25 

26 

27 005564 

28 

29 

30 

31 005622 

32 005624 

33 005662 

34 005664 

35 005722 

36 005724 
37 

38 005726 

39 005734 

40 005742 
41 

42 
43 

44 005744 

45 005750 

46 005756 
47 

48 
49 

50 005760 

51 005764 

52 005772 

53 005774 

54 006000 

55 006002 

56 006006 

57 006010 



004767 
122327 
001404 



010605 

010506 
103763 



016167 
103010 



005002 

103421 

005202 
000737 

000706 



004767 
052761 
000405 



004767 
042761 
010102 
062702 
010204 
062704 
005203 
105713 



PROCESS THE SPOOL 'ALieN' OPTION. 
(SPOOL XX. ALIGN, <FILE NAME>> 



OOOOOOG 
000054 



SPLALN: CALL CKPRIV 

CMPB (R3)+, #', 

BEQ 1* 
9«: FABORT #CaAL 
} PARSE ALIGNMENT FILE NAME 
1$: MOV SP. R5 

. CSIGEN #ALDEX, #ALDEX, R3 

MOV R5. SP 

BCS 9* 

i ALIGNEMENT FILE IS NOW OPEN ON CHANNEL 3 
i OPEN SPOOLED DEVICE ON CHANNEL 1 



Must have operator privilege 
WAS FILE NAME GIVEN? 
BR IF YES 



SAVE SP 

OPEN ALIGNEMENT FILE - 

RESET SP 

BRANCH IF . CSIGEN ERROR 



CHAN 3 



OOOOOOG OOOOOOG 



MOV SDNAME<R1). ALDBLKiSET UP DEVICE NAME 
.ENTER #XAREA, #1, #ALDBLK, #0;OPEN SPOOLED DEVICE 



00016/ OOOOOOG 



10*: 



BCC 2* 

.PRINT #COAD 

. CLOSE #3 

JMP RDCMD 



BR IF OPEN OK 

CAN'T OPEN SPOOLED DEVICE 

CLOSE ALIGNMENT FILE 



?*: 



WRITE 1ST RECORD TO SPOOLED FILE AND SPECIFY A 
FORM NAME OF "#«»•»•#*" WHICH MEANS ALIGNMENT FILE. 

. WR ITW #XAREA; #1 .• #.AL.F=N, #4, #0 

NOW COPY ALIGNMENT FILE TO SPOOLED FILE 



OOOOOOG 
OOOOOOG OOOOOOG 



CLR R2 ; INIT BLOCK # 

4*: . READW #XAREA, #3, #BLKO, #256. , R2 

BCS 3* } BR IF END OF FILE 

. WRITW #XAREA, #1, #BLKO, #256. , R2 

INC R2 

BR 4* 
J HIT END OF ALIGNMENT FILE. CLOSE BOTH CHANNELS. 
3*: . CLOSE #1 

. CLOSE #3 

BR 10* 

PROCESS THE 'LOCK' OPTION. 

SPLLK: CALL CKPRIV ; Must have operator privilege 

BIS #SD*FLK, SDFLAG(Rl>iSAY FORM IS LOCKED 
BR SPLMTl ; NOW DO MOUNT 

PROCESS THE 'FORM' OPTION 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 

000006 



SPLFRM: CALL 
BIC 

SPLMTl: MOV 
ADD 
MOV 
ADD 
INC 

3*: TSTB 



CKPRIV ; Must have operator privilege 

#SD*FLK> SDFLAG<R1); SAY FORM IS NOT LOCKED 
R1,R2 J POINT TO FORM NAME CELL 



R2, R4 
#6, R4 
R3 
(R3) 



; POINT TO END OF CELL 

j SKIP OVER COMMA 
J HIT END OF NAME? 
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58 006012 
d9 kjkjokjxh 

60 006016 

61 006020 

62 006022 
63 

64 006024 

65 006026 

66 006030 

67 006034 
68 

69 
70 

71 006036 

72 006044 

73 006046 

74 006052 
75 

76 
77 

78 006056 

79 006062 
SO 006066 
81 

02 006070 
S3 006072 

84 006074 

85 006100 

86 006104 
87 

88 
89 

90 006110 

91 006114 

92 006120 

93 006122 

94 006126 

95 006132 

96 006134 

97 006142 



001404 
020204 
103007 
1 1 2322 
000772 

020204 
103003 
112722 
000773 



042761 
010100 
004767 

000167 



004767 
005761 
001415 

010104 
005203 
004767 
010164 
000167 



004767 
005761 
001002 
000167 
005761 
001403 
052761 
000167 



BEQ 1* 

CMP R2, R4 

BHIS 2« 

MOVB (R3)+, <R2)+ 

BR 3« 



} BR IF YES 

; COPIED 6 CHARS? 

; BR IF YES 

i COPY IN FORM NAME 



PAD END OF SHORT NAME WITH BLANKS 



1*: 



000040 



CMP 
BHIS 
MOVB 
BR 



R2, R4 

2* 

#' , (R2>+ 

1* 



FILLED TO 6 CHARS? 

BR IF YES 

PUT IN TRAILING SPACES 



OOOOOOG OOOOOOG 2$: 

000630 
OOOOOOG 



NOW TRY TO START SPOOLER 

BIC #SD*WFM. SDFLAG<Rl)i SAY FORM MOUNT IS DONE 

MOV R1,R0 ; POINT TO SDCB 

CALL SPOLOD ; TRY TO START SPOOLER 

JMP RDCMD 

PROCESS THE 'SKIP' OPTION 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 

177306 
OOOOOOG 

OOOOOOG 
OOOOOOG 



SPLSKP; CALL 

TST 

BEQ 
; ACCRUE NUMBER 

MOV 

INC 

CALL 

MOV 

JMP 



CKPRIV 

SDSFCB<R1) 

SPNBB 

Rl, R4 

R3 

ACRDEC 

Rl, SDSKIP<R4) 

RDCMD 



iMust have operator privilege 
; IS DEVICE BUSY? 
; BR IF NOT 

SAVE SDCB ADDRESS 
SKIP OVER COMMA 
ACCRUE DEC NUMBER 
SET SKIP COUNT IN SDCB 



PROCESS THE 'BACK' OPTION 



OOOOOOG 



SPLBAK: 



SPNBB: 
SPLBKl 



1*: 



CALL CKPRIV 

TST SDSFCB < R 1 ) 

BNE SPLBKl 

JMP SPNBSY 

TST SDBU<R1) 

BEQ 1* 

BIS #SD*BAK, SDFLAG<R1) 

JMP RDCMD 



Must have operator privilege 
IS THE DEVICE BUSY 
BR IF YES 

GO GIVE ERROR MESSAGE 
ANY BLOCKS REMEMBERED YET? 
BR IF NOTHING TO BACKUP TO 
REQUEST BACK UP 



i 
i 

r 



f 
i 
f 

i 

i 

I 

I 

I 

i 
t 

I 
( 
( 
( 
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006146 
006152 
006154 
006162 

8 006164 

9 006172 

10 006174 

11 006202 

12 006204 
13 

14 006212 

15 006220 

16 006222 
17 

IS 006230 

19 006234 

20 006236 
21 

22 006244 

23 006252 

24 006254 

25 006260 

26 006264 

27 006266 

28 006272 

29 006274 
30 

31 006276 

32 006304 

33 006306 
34 

35 006314 

36 006320 

37 006324 

38 006332 

39 006334 

40 006342 

41 006344 

42 006352 

43 006360 

44 006362 

45 006370 

46 006372 
47 

48 006400 

49 006404 

50 006406 

51 006414 

52 006416 

53 006424 

54 006432 

55 006436 
56 

57 



005761 
001404 

000413 
032761 
001404 

000403 



032761 
00 1 403 



005767 
001003 



010102 
062702 
012703 
1 1 2200 

005303 
001373 

032761 
001403 



000416 

032761 
001004 

000403 



005761 
001004 

000410 



004767 

000167 



PROCESS THE SPOOL 'STATUS' COMMAND 



0000000 



SPLSTA: TST 
BEQ 



,• IS SPOOLER BUSY? 
;BR IF NOT 



OOOOOOG OOOOOOG 1*: 

2*: 

i 

OOOOOOG OOOOOOG 4*; 



SDSFCB<R1) 

1* 

. PRINT #SPACTV 
BR 4* 

BIT #SD*WFM, SDFLAG(Rl)i IS IT WAITING FOR A FORM MOUNT? 
BEQ 2* 
. PRINT #SPWFM 
BR 4$ 
.PRINT #DEVIDL 
SEE IF IN SINGLE FILE MODE 

BIT #SD*3NG, SDFLAG<Rl)i IN SINGLE-FILE MODE? 

; BR IF NOT 



OOOOOOG 



OOOOOOG 
000006 



; IS SPOOL FILE FULL? 
i BR IF NOT 



; POINT TO FORM NAME CELL 
i PRINT 6 CHARS 



OOOOOOG OOOOOOG 



112700 000054 

032761 OOOOOOG OOOOOOG 
001004 



OOOOOOG OOOOOOG 



OOOOOOG 



BEQ 20* 

.PRINT #SPSNG 

i SEE IF SPOOL FILE IS FULL 

20*: TST NFRESB 

BNE 3* 

. PRINT #SPFUL 

; LIST CURRENT FORM NAME 

3*: . PRINT #SPCF 

MOV R1,R2 

ADD #SDFORM. R2 

MOV #6. R3 

5*: MOVE <R2)+, RO 

. TTYOUT 

DEC R3 

BNE 5* 
; SEE IF CURRENT FORM IS LOCKED 

BIT #SD*FLK,SDFLAG(Rl)i IS FORM LOCKED? 

BEQ 21* >BR IF NOT 

.PRINT #SPFLK 
; SEE IF IN FLAG PAGE MODE 

21*: MOVB #',,R0 ; PRINT COMMA 

. TTYOUT 

BIT #SD*FLG, SDFLAG(Rl); IN FLAG PAGE MODE? 

BNE 6* ; BR IF YES 

.PRINT #NSPFLG i "NOFLAGPAGE" 

BR 7* 

6*: . PRINT #SPFLG i "FLAGPAGE. " 

BIT #SD*WID, SDFLAG<R1); IS FLAG PAGE WIDE? 

BNE 61* iBR IF YES 

. PRINT #SPNARO ; "NARROW" 

BR 7* 

61*: .PRINT #SPWIDE i "WIDE" 

List Info about files pending for this device. 



OOOOOOG 
OOOOOOG 



7*: TST SDFHD<R1) 

BNE 11* 

. PRINT #NOFIL 

BR S* 

11*: .PRINT #QHDMS1 

.PRINT #QHDMS2 

CALL LSTSPL 

8*: JMP RDCMD 

i PROCESS THE 'SINGLE' OPTION 



ARE THERE ANY FILES PENDING FOR THIS DEVICE? 
BR IF YES 
NO FILES. . . 

PRINT HEADING MESSAGE 
UNDERLINE THE HEADING 
LIST SPOOL FILES 



I 
< 
I 

4 
( 
I 

t 
I 
< 
I 
€ 
1 
i 

€ 
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I 

I 
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I' 
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5S 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



006442 
006446 
006454 



006460 
006464 
006472 



004767 
052761 
000167 



004767 
042761 
000167 



OOOOOOS 
0000000 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



SPLSNG: CALL 
BIS 
JMP 



CKPRIV ; Must have operator privilege 

#SD*SNG, SDFLAG<f?l); SET SINGLE-FILE MODE 
RDCMD 



PROCESS THE 'MULTIPLE' OPTION 



OOOOOOG 



SPLMUL: CALL 
BIC 
JMP 



CKPRIV iMust have operator privilege 

#SD*SNG. SDFLAG<Rl)i RESET SINGLE-FILE MODE 
RDCMD 



PROCESS THE SPOOL 'HOLD' COMMAND. 

HOLD MEANS DON'T START OUTPUT UNTIL CHANNEL IS CLOSED. 



006476 
006502 
006506 
006512 
006514 



004767 
010167 
012700 
104375 
000167 



OOOOOOG 

171352 

000054' 

OOOOOOG 



SPLHLD: CALL 
MOV 
MOV 
EMT 
JMP 



CKPRIV 

Rl, SPHLEM+4 

#SPHLEM, RO 

375 

RDCMD 



; Must have operator privilege 
;Set SDCB address in EMT arg block 
; Point to EMT arg block 
} Set hold mode 



PROCESS THE SPOOL 'NOHOLD' COMMAND WHICH MEANS START OUTPUT 
AS SOON AS A FILE IS CRbAlEl). 



006520 
006524 
006530 
006534 
006536 



006542 
006546 
006554 



006560 
006564 
006572 



006576 
006602 
006610 



006614 
006620 
006626 



004767 
01016/ 
012700 
104375 
000167 



004767 
052761 
000167 



004767 
042761 
000167 



004767 
052761 
000167 



004767 
042761 
000167 



OOOOOOG 
171336 
000062 ' 

OOOOOOG 



OOOOOOG 
OOOOOOG 
176476 



OOOOOOG 
OOOOOOG 
176460 



OOOOOOG 
OOOOOOG 
176442 



OOOOOOG 
OOOOOOG 
176424 



SPLNHL; CALL 
MOV 
MOV 
EMT 
JMP 



CKPRIV 

Rl, SPNHEM+4 

#SPNHEM, RO 

375 

RDCMD 



iMust have operator privilege 

; Set SDCB address in EMT arg block 

>Point to EMT arg block 

> Set NOHOLD mode 



PROCESS THE 'FLAGPAGE' OPTION 



OOOOOOG 



SPLFLG: CALL 
BIS 
JMP 



CKPRIV iMust have operator privilege 

#SD*FLG, SDFLAG<R1);SET FLAG MODE 

CSGTOP i Go check for other options 



PROCESS THE 'NOFLAGPAGE' OPTION 



OOOOOOG 



SPLNFL: CALL 
BIC 
JMP 



CKPRIV iMust have operator privilege 

#SD*FLG> SDFLAG<R1 )i RESET FLAG MODE 

CSGTOP i Go check for other options 



PROCESS THE 'WIDE' OPTION 



OOOOOOG 



SPLWID: CALL 
BIS 
JMP 



CKPRIV iMust have operator privilege 

#SD*WID, SDFLAG<Rl)i SET FLAG MODE 

CSGTOP i Go check for other options 



PROCESS THE 'NARROW' OPT JON 



OOOOOOG 



SPLNRW: CALL 
BIC 
JMP 



CKPRIV iMust have operator privilege 

#SD*WID>SDFLAG<Rl)i RESET FLAG MODE 

CSGTOP i Go check for other options 



004767 OOOOOOG 



PROCESS THE 'FORM' COMMAND. 
CMDFRM: CALL CVTTAB 



i CONVERT TAB AND FF CHARS TO SPACE 



f 
t 

I 

i 



i 

c 
i 
I 
i 
i 
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i 

€ 
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t 

i 
i 
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i 
i 
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I 
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115 


006636 


004767 


OOOOOOQ 


116 


006642 


012704 


OOOOOOG 


117 


006646 


020302 




118 


006650 


103004 




119 


006652 


112324 




120 


006654 


020427 


000006G 


121 


006660 


103772 




122 








123 


006662 


020427 


000006G 


124 


006666 


103003 




125 


006670 


112724 


000040 


126 


006674 


000772 




127 


006676 


000167 


OOOOOOG 


128 








129 








130 








131 








132 








133 








134 








135 


006702 


010046 




136 


006704 


010067 


000004G 


137 


006710 


012700 


OOOOOOG 


138 


006714 


104375 




139 


006716 


012600 




140 


006720 


000207 





2«: 



CALL CVTUC 

MOV #UFORM, R4 

CMP R3, R2 

BHIS 1* 

MOVE <R3)+> (R4)+ 

CMP R4, #<UF0RM+6> 

BLO 2* 
; SEE IF WE NEED TO PAD NAME 

1*. CMP R4, #<UF0RM+6> 

BHIS 3* 

MOVB #' , <R4)+ 

BR 1* 

3*: JMP RDCMD 



CONVERT ALL CHARS TO UPPER CASE 
POINT TO CELL WHICH HOLDS FORM NAME 
MOVED ALL OF NAME? 
BR IF YES 

MOVE FORM NAME TO UFORM 
MOVED 6 CHARS? 
BR IF NOT 
WITH BLANKS 

FILLED TO 6 CHARS? 

BR IF FINISHED 

PUT IN TRAILING BLANKS 



> SPOLGO is called to start a spooler. 

i 

i Inputs: 

; RO - SDCB address of spooler to be started. 



: MOV 


RO, -(SP) 


MOV 


RO, SPGEMT+4 


MOV 


#SPGEMT, RO 


EMT 


375 


MOV 


<SP)+, RO 


RETURN 





SET SDCB ADDRESS IN EMT ARG BLOCK 
POINT TO ARG BLOCK 
START THE SPOOLER 



I 
t 

t 



I 

t 

i 

I 

< 
I 

i 
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i 
2 
3 
4 
5 
6 
7 
S 
9 
10 
U 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006722 
006726 
006734 



006736 
006742 
006744 



006754 
006760 
006762 



006764 
006770 
006772 
006774 
007000 
007002 
007006 
007010 
007024 
007030 
007036 



007040 
007046 
007050 
007060 
007064 
007070 
007074 
007100 
007104 
007110 
007112 
007116 
007120 
007122 
007126 



004767 
1 1 2767 
000411 



116701 
001014 



105067 
1 1 1 300 
001420 



004767 
005701 
003422 
020127 
101003 
016101 
001010 

000167 
032761 
001364 



032767 
001004 

012704 
112724 
1 1 2724 
112724 
116705 
016505 
010502 
062702 
112224 
112224 
070527 
062705 
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. SBTTL SEND command 



Process the YELL command which overrides TT gag but requires 
operator privilege. 

OOOOOOe CMDYEL: CALL CKPRIV ; Require OPER privilege 

000003 OOOOOOe move #3, YELEMT iSet the YELL and error flags 

BR SNDCOM ; Enter SEND command code 



Process the OPERATOR command which functions as a send 
command to the operators console. 



OOOOOOG 



OPRCMD: MOVB CTRLTT, Rl 
BNE SNDON 
FABORT #NOOPTT 



GET LINE INDEX # OF OPR TERMINAL 

BR IF GOT ONE 

NO OPERATOR'S CONSOLE 



PROCESS THE 'SEND' COMMAND. 



OOOOOOG 



CMDSND: CLRB 
SNDCOM: MOVB 
BEQ 



YELEMT 

(R3),R0 

CSEXIT 



ACCRUE LINE #. 



000544 



CALL 

TST 

BLE 

SNDGN: CMP 

BHI 

MOV 

BNE 

LNUMER : FWARN 

OOOOOOG CSEXIT: JMP 

OOOOOOG OOOOOOG CSCD: BIT 

BNE 



OOOOOOG 



OOOOOOG 



SNDLIN 

Rl 

CSSCAN 

R 1 , #LSTSL 

LNUMER 

LNPRIM<R1>, Rl 

CSCD 

#BDLIN 

RDCMD 

#*DETCH, LSW<R1) 

LNUMER 



This is not the YELL command 
GET 1ST CHAR OF COMMAND 
BRANCH IF NULL COMMAND 



Accrue line # to send to 

SEND TO SPECIFIC USER? 

BRANCH IF ALL OR OC 

IS THIS A VALID LINE #? 

BR IF NOT 

GET PRIMARY LINE # 

BRANCH IF VALID 

Invalid line number 

} TRYING TO SEND TO DETACHED JOB? 
; BR IF YES 



AT THIS POINT THE INDEX NUMBER OF THE LINE WE WISH TO 

SEND TO IS IN Rl. 

PUT OUR LINE NUMBER AND USER NAME AT START OF MESSAGE BUFFER 



OOOOOOG OOOOOOG CSSCAN: 



OOOOOOG 

000015 

000012 

000007 

OOOOOOG 

OOOOOOG 

OOOOOOG 



000006 
OOOOOOG 



10*: 



BIT 


#PO*SND, PRIVCO 


BNE 


10* 


FABORT 


#EM*SND 


MOV 


#MSGBUF, R4 


MOVB 


#CR, <R4)+ 


MOVB 


#LF, (R4)+ 


MOVB 


#BELL, <R4>+ 


MOVB 


CORUSR, R5 


MOV 


LNPRIM<R5),R5 


MOV 


R5, R2 


ADD 


#NUMTB1, R2 


MOVB 


(R2)+, (R4) + 


MOVB 


<R2)+, <R4)i- 


MUL 


#6. R5 


ADD 


#LUNAME, R5 



i Are we privileged to send messages? 
; Br if yes 

i POINT TO MESSAGE BUFFER 
i PUT IN LEADING CR-LF-BELL 



iGET OUR LINE NUMBER 

iGET OUR PRIMARY LINE NUMBER 

i POINT TO TABLE WITH LINE NUMBER CHARACTERS 
iPUT IN LINE NUMBER 

jEACH job HAS A 12 CHAR USER NAME 

; POINT TO USER NAME ENTRY FOR THIS LINE 



I 
I 
f 



i 
( 
i 
i 
( 
i 
I 
i 
i 
I 
I 
c 
i 
( 



t 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 

/U 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



007132 
007136 
007140 
007144 
007150 
007154 
007156 
007160 
007164 
007166 
007170 
007174 
007200 
007204 
007210 



007214 
007220 
007222 
007224 
007226 
007230 
007234 
007236 
007240 
007244 
007250 



007252 
007254 
007256 



007260 
007266 
007270 
007276 
007302 
007310 
007312 
007320 
007322 
007326 
007330 
007336 
007342 
007346 
007350 
007354 
007356 
007360 



121527 000040 

001416 

1 1 2724 

1 1 2724 

012702 

112524 

077202 

124427 

001775 

005204 



112724 
112724 
112724 
1 1 2724 
112724 



122327 
001775 
005303 
112324 
001403 
020427 
103773 
005304 
112724 
112724 
105014 



005701 
001655 
100450 



032761 
001005 

000167 
032761 
001414 
032761 
001010 
105767 
001005 

000167 
012700 
006201 
010160 
104375 
103006 



000040 
000050 
000014 



000040 



000051 
000040 
000055 
000055 
000040 



000040 



6*: 
7*: 



5*: 
4*: 



CMPB 


<R5).#'' 


BEO 


4* i 


MOVE 


#' . (R4)+ i 


MOVB 


#'(, (R4)+ ; 


MOV 


#12. ,R2 i 


MOVB 


(R5)+, (R4)+ ; 


SOB 


R2, 6* ; 


CMPB 


-<R4),#BLANK ; 


BEO 


7* 


INC 


R4 i 


MOVB 


#'), <R4)+ i 


MOVB 


#' , <R4)+ 


MOVB 


#•'-, <R4) + 


MOVB 


#■'-, (R4) + 


MOVB 


#' , <R4>+ 



IS USER NAME BLANK? 

BR IF YES 

PUT IN A SPACE 

AND OPEN PAREN AT START OF NAME 

GET LENGTH OF NAME 

GET NEXT CHAR OF USER NAME 

MOVE REST OF NAME 

TRIM OFF TRAILING SPACES 

POINT BEYOND LAST NON-BLANK CHARACTER 
PUT IN CLOSE PAREN AT END OF NAME 
pyj .. — .. Aj END OF NAME 



Nouj move message string to message buffer 



177776G 



000015 
000012 



3«: 



1*. 



2*: 



CMPB 


<R3)+,#' 


BEQ 


3* 


DEC 


R3 


MOVB 


<R3)+, <R4)-+- 


BEQ 


2* 


CMP 


R4, #<MSGEND-2 


BLO 


1« 


DEC 


R4 


MOVB 


#CR; <R4)+ 


MOVB 


#LF, <R4)+ 


CLRB 


(R4) 



; SKIP OVER ANY BLANKS 

POINT TO 1ST CHAR OF MESSAGE 
MOVE MESSAGE TO OUR BUFFER 
BRANCH WHEN END HIT 
DON'T OVERFLOW OUR BUFFER 

; PUT CR-LF AT END OF MESSAGE 



; PUT IN NULL TO SIGNAL END 
See who we should send the message to. 



TST 
BEQ 
BMI 



Rl 

LNUMER 

SNDALL 



WHO IS IT GOING TO? 
SEND TO CONSOLE TERMINAL 
SEND TO ALL LINES 



Send message to one terminal whose line index number 
is in Rl. 



OOOOOOG OOOOOOG SNDONE: BIT 

BNE 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 

000002 



OOOOOOG 1*: 
OOOOOOG 



#«DILUP.LSW(R1) ; IS THAT LINE LOGGED ON? 
1* i BRANCH IF YES 

PRINT #NOTON 



i BR IF NOT 



>«: 



JMP 


RDCMD 


BIT 


#*TTGAG, LS 


BEQ 


2* 


BIT 


#*INKMN, LS 


BNE 


2* 


TSTB 


YELEMT 


BNE 


2* 


. PRINT 


#GAGMSG 


JMP 


RDCMD 


MOV 


# YELEMT, RO 


ASR 


Rl 


MOV 


R1,2(R0) 


EMT 


375 


BCC 


3* 


FWARN 


#NMSGBF 



iBR IF YES 

i Are we yel 1 ing? 

J Br if yes — Override gag 

i SAY LINE IS GAGGED 

POINT TO EMT ARG BLOCK 
GET LINE NUMBER * 1 
SET LINE # IN ARG BLOCK 
SEND THE MESSAGE 
BR IF NO ERROR 



i 
I 
f 
I 
< 
I 
i 

I 
( 
f 
i 
i 
i 
f 
f 
i 
i 
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115 


007374 


000167 


0000000 




3*: 


JMP 


RDCMD 


116 










t 






117 










i Send 


message 


to all terminals. 


118 










i 






119 


007400 


012703 


OOOOOOG 




SNDALL: 


MOV 


#LSTPL. R3 


120 


007404 


116702 


ooooooe 






MOVE 


CORUSR, R2 


121 


007410 


016202 


OOOOOOG 






MOV 


LNPRIM(R2),R2 i 


122 


007414 


032763 


OOOOOOG 


OOOOOOG 


2*: 


BIT 


#*DILUP,LSW<R3) i 


123 


007422 


001437 








BEG 


1* : 


124 


007424 


032763 


OOOOOOG 


OOOOOOG 




BIT 


#*DETCH. LSW(R3) ; 


125 


007432 


001033 








BNE 


1* i 


126 


007434 


020302 








CMP 


R3, R2 ; 


127 


007436 


001431 








BEQ 


1* 


128 


007440 


032763 


OOOOOOG 


OOOOOOG 




BIT 


#«TTGAG.LSW7(R3); 


129 


007446 


001407 








BEQ 


3* ; 


130 


007450 


105767 


OOOOOOG 






TSTB 


YELEMT ; 


131 


007454 


001004 








BNE 


3* i 


132 


007456 


032763 


OOOOOOG 


OOOOOOG 




BIT 


#*INKMN, LSW4(R3); 


133 


007464 


001416 








BEQ 


1* i 


134 


007466 


012700 


OOOOOOG 




3$: 


MOV 


#YELEMT, RO ; 


135 


007472 


010301 








MOV 


R3, Rl ; 


136 


007474 


006201 








ASR 


Rl ; 


137 


007476 


010160 


000002 






MOV 


R1,2(R0) i 


138 


007502 


104375 








EMT 


375 i 


139 


007504 


103006 








BCC 


1« i 


140 


007506 










FWARN 


#NMSGBF ; 


141 


007522 


162703 


000002 




1*: 


SUB 


#2, R3 J 


142 


007526 


001332 








BNE 


2* ; 


143 


007530 


000167 


OOOOOOG 






JMP 


RDCMD 



GET INDEX # OF LAST LINE 

GET OUR LINE INDEX # 

GET OUR PRIMARY LINE INDEX # 

IS THIS LINE LOGGED ON? 

BRANCH IF NOT 

IS THIS A DETACH LINE? 

BR - DETACH LINES DON'T NEED MESSAGES 

DON'T SEND MESSAGE TO OURSELF 

IS LINE GAGGED? 

BR IF NOT 

Are we YELLing? 

Br if yes — Override gag 

IS JOB IN KMON NOW? 

IF NOT THEN DON'T SEND MESSAGE 

POINT TO EMT ARG BLOCK 

GET LINE INDEX # 

GET LINE NUMBER 

STORE LINE # IN EMT ARG BLOCK 

SEND THE MESSAGE 

BR IF NO ERROR 

REPORT NO MESSAGE BUFFERS 

MOVE ON TO NEXT LINE 

BRANCH IF MORE TO DO 



h 
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I 

t 

i 

€ 
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2 








3 








4 








5 








6 








7 








8 








9 








10 


007534 


010546 




11 








12 








13 








14 


007536 


004767 


0000000 


15 


007542 


121327 


000054 


16 


007546 


001407 




17 


007550 


121327 


000057 


18 


007554 


001404 




19 


007556 






20 








21 








22 








23 


007566 


005203 




24 


007570 


004767 


OOOOOOG 


25 


007574 


111300 




26 


007576 


020027 


000141 


27 


007602 


103402 




28 


007604 


162700 


000040 


29 


007610 


120027 


000101 


30 


007614 


001003 




31 


007616 


012701 


177777 


32 


007622 


000424 




33 


007624 


120027 


000117 


34 


007630 


001007 




35 


007632 


116701 


OOOOOOG 


36 


007636 


001016 




37 


007640 






38 


007650 


120027 


000120 


39 


007654 


001015 




40 


007656 


116701 


OOOOOOG 


41 


007662 


005761 


OOOOOOG 


42 


007666 


001402 




43 


007670 


016101 


OOOOOOG 


44 


007674 


112300 




45 


007676 


001407 




46 


007700 


120027 


000040 


47 


007704 


001373 




48 


007706 


000403 




49 








50 








51 








52 


007710 


004767 


OOOOOOG 


53 


007714 


00630.1 




54 








55 








56 








57 


007716 


012605 





Accrue the line number associated mith a SEND command 

Inputs: 
R3 = Points past end of SEND keyuiord. 

Outputs: 
Rl = Index number of job to send to (-1 ===> Send to all jobs) 

SNDLIN: MOV R5, -<SP) 

See if a line number was specified 

Skip over any spaces 

Start of line # field? 

Br if yes 

Start of line # field? 

Br if yes 

No line number was specified 



CALL 


SKPSPC 


CMPB 


<R3),#', 


BEQ 


1* 


CMPB 


(R3),#V 


BEQ 


1* 



F ABORT #EM*NLN 
See if we are sending to ALL/ 



1*: 



2*: 



3*: 



INC 

CALL 

MDVB 

CMP 

BLO 

SUB 

CMPB 

BNE 

MOV 

BR 

CMPB 

BNE 

MOVB 

BNE 



R3 

SKPSPC 

<R3), RO 

RO, #141 

2* 

#40, RO 

RO. #'A 

3* 

#-1, Rl 

7* 

RO, #'0 

4* 

CTRLTT, Rl 

7* 



4*: 



7*: 



FABORT #N00PTT 

CMPB RO, #'P 

BNE 5* 

MOVB C0RUSR,R1 

TST LPARNT<R1) 

BEQ 7* 

MOV LPARNT<R1), Rl 

MOVB <R3)+, RO 

BEQ 9* 

CMPB RO, #' 

BNE 7* 

BR 9* 



OPERATOR, or PARENT 

Point past delimiter 

Scan up to line number 

Get Ist char of "number" 

Is this a loujei — case letter? 

Br if not 

Convert lowei — case to upper case 

Send to ALL? 

Br if not 

Line # for All 

Send to operator? 

Br if not 

Get operator line # 

No operator terminal 

Send to parent job? 

Br if not 

Get current job index # 

Is there a parent job? 

Br if yes 

Get # of parent job 

Skip over rest of keyword 

Space? 



We must have an ordinary line number 



5«: CALL 


ACRDEC 


ASL 


Rl 


i Finished 




9$: MOV 


(SP)+, 



Accrue line number 

Convert to line index number 



I 
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i 
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i 
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TSKM2A — Keyboard command rout MACRO V05. 05 Thursday 19-Jan-89 14: 53 Page 34-1 



SEND command 

58 007720 000207 RETURN 
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. SBTTL DETACH command 



007746 

007752 



23 
24 
25 
26 



007722 
007726 
007734 
8 007736 
9 

10 

11 

12 

13 

14 

15 007754 

16 007756 

17 007762 

18 007766 

19 007770 
20 

21 010000 

22 010004 
010006 
010012 
010014 
010024 

27 010030 

28 010032 

29 010036 

30 010040 
31 

32 010044 

33 

34 

35 

36 010046 

37 010052 

38 010054 

39 010056 

40 010064 

41 010066 

42 010074 
43 

44 
45 

46 010100 

47 010104 

48 010106 

49 010110 

50 010116 



004767 
032767 
001004 



PROCESS THE DETACH COMMAND 



OOOOOOG CMDDET: CALL CVTTAB 

OOOOOOG OOOOOOG BIT #PO*DET, PRIVCO 

BNE 1* 

FABORT #EM*DET 



121327 000057 

U J. WOC^ 

005203 

012704 000220' 

004767 OOOOOOG 

103004 



004767 
006301 
020127 
103004 

020127 
101371 
012700 
006201 
010167 

000134 



112710 
104375 
103404 

000403 

000167 



112710 
104375 
103767 

000766 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 
000002G 



000001 



OOOOOOG 



QOOOOi 



CONVERT TAB AND FF CHARS TO SPACES 
IS USER ALLOWED TO USE DETACHED JOBS? 
BR IF YES 
NOT ALLOWED 



SEE IF ANY SWITCHES WERE SPECIFIED WITH COMMAND 



1*: CMPB 
BNE 

i ACCRUE AND 
INC 
MOV 
CALL 
BCC 
FABORT 

; ACCRUE LINE 
CALL 

CMP 
BHIS 
FABORT 
CMP 
BHI 
MOV 
ASR 
MOV 
BRANCH OFF 
JMP 



2*: 



4$: 

3*: 



<R3)>#'/ 

DETGO 
IDENTIFY SWITCH 

R3 

#DETHD, R4 

SEARCH 

2* 

#INVOPT 
NUMBER AND SEE IF 

ACRDEC 

Rl 

R 1 , #FSTDL 

3* 

#BDLIN 

Rl, #LSTDL 

4* 

#DETARG, RO ; 

Rl i 

Rl,DErARG+2 
TO PROCESSING ROUTI 

@(R4)+ i 



ANY SWITCHES? 

BR IF NOT — START DETACHED JOB 

SKIP OVER / 

POINT TO TABLE OF SWITCHES 

LOOK UP THE SWITCH 

BR IF FOUND OK 

INVALID SWITCH 

LEGAL 

ACCRUE THE DECIMAL NUMBER 

CONVERT TO LINE INDEX # 

SEE IF IT IS A DETACHED LINE 



POINT TO DETACH EMT ARG BLOCK 
STORE DETACHED JOB # 

NE 

ENTER PROCESSING ROUTINE 



Process the /CHECK option. 



DETCHK: MOVB 
EMT 
BCS 



#1, <R0) 
375 

DETIDL 



PRINT #RUNMS 



BR 



DETJMP 



DETIDL: .PRINT #LINFRE 



DETJMP: JMP 



RDCMD 



Process the /KILL option. 

DETKIL: MOVB #2, <R0) 

EMT 375 

BCS DETIDL 

. PRINT #DJABMS 

BR DETJMP 



iSET SUB-FUNCTION CODE FOR EMT 
; CHECK ON DETACHED JOB 
;BR IF JOB FINISHED 
i JOB STILL RUNNING 

jLINE IS IDLE 

; FINISHED WITH COMMAND 



SET SUB -FUNCTION CODE FOR EMT 

KILL A DETACHED JOB 

BR IF JOB NOT RUNNING 

PRINT CONFIRMATION 

FINISHED 



i 
I 
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i 
i 



3 








4 








5 








6 


010120 


010302 




7 


010122 


012704 


OOOOOOS 


8 


010126 


005005 




9 


010130 


004767 


0000000 


10 


010134 


103441 




11 


010136 






12 


010156 


103434 




13 


010160 






14 








15 








16 








17 


010166 


012700 


OOOOOOG 


18 


010172 


105010 




19 


010174 


010260 


000002 


20 


010200 


104375 




21 


010202 


103412 




22 








23 








24 








25 


010204 


OlOOOtJ 




26 


010206 






27 


010214 


004767 


ooooooe 


28 


010220 






29 


010226 


000722 




30 








31 








32 








33 


010230 






34 








35 








36 








37 


010240 






38 








39 








40 








41 


010250 







start a new detached job. 

R3 - Pointer to ASCIZ string with detached job command file name. 

Try to open the command file to make sure it exists. 



DETGO: 



MOV 


R3, R2 


MOV 


#R50C0M, R4 


CLR 


R5 


CALL 


ACRFIL 


BCS 


10* 



i Save pointer to start of file name string 

; Point to word with default extension (COM) 

; Say this is an input file 

/Accrue the file spec 

; Br if invalid file spec 



.LOOKUP #XAREA, #1* #FILNAM ; Try to open the file 
BCS 11* ; Br if cannot open file 

.CLOSE #1 i Close the file 

Execute EMT to initiate the detached job. 



MOV 


#DETARG, RO 


CLRB 


<R0) 


MOV 


R2, 2(R0) 


EMT 


375 


BCS 


1* 



Tell user which line was used 

MOV RO, R5 

.PRINT #DLMSG 

CALL PRTDEC 

PRINT #CRLF 

BR DETJMP 

No free lines 
1*: FABORT #NOFRDL 

Invalid file spec 
10*: FABORT #BDFNAM 

Cannot open file 
11*: FABORT #EM*FOE 



POINT TO DETACH EMT ARG BLOCK 

SET SUB-FUNCTION CODE FOR EMT 

SET ADDRESS OF COMMAND FILE NAME ASCIZ STRING 

START A DETACHED JOB 

BR IF NO FREE LINES 



.: GET DETACHED JOB LINE NUMBER 

; PRINT HEADING 

; DISPLAY LINE # 

i TERMINATE PRINT LINE 



NO FREE LINES 



I 

i 

i 
i 
i 
i 
i 
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I 
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I 

2 








3 








4 








5 


010260 


004767 


OOOOOOG 


6 


010264 


105713 




7 


010266 


001002 




S 

9 

10 


010270 


000167 


OOOOOOG 








11 








12 
13 
14 


010274 


004767 


OOOOOOG 


010300 


004767 


OOOOOOG 


15 


010304 


005701 




16 


010306 


003453 




17 


010310 


020127 


000037 


IS 


010314 


101050 




19 


010316 


072127 


000005 


20 


010322 


010105 




21 


010324 


122327 


000055 


22 


010330 


001042 




23 








24 


010332 


004767 


OOOOOOG 


25 


010336 


016700 


OOOOOOG 


26 


010342 


012701 


000001 


27 


010346 


012702 


OOOOOOG 


28 


010352 


020022 




29 


010354 


001405 




30 


010356 


005201 




31 


010360 


020127 


000014 


32 


010364 


101772 




33 


010366 


000423 




34 


010370 


072127 


000012 


35 


010374 


050105 




36 


010376 


122327 


000055 


37 


010402 


001015 




38 








39 


010404 


004767 


OOOOOOG 


40 


010410 


020127 


000143 


41 


010414 


101010 




42 


010416 


162701 


000110 


43 


010422 


003405 




44 


010424 


050105 




45 








46 


010426 


010567 


OOOOOOG 


47 


010432 


000167 


OOOOOOG 


*ffcj 

49 


010436 


152767 


000010 


50 


010444 







. 3BTTL DATE command 
Process the DATE command. 



CMDDAT: 


CALL 


CVTTAB 






TSTB 


(R3) 






BNE 


3* 






JMP 


SOPDAT 


t 


Set 


a new sy 


stem date v 


3« 




CALL 


CKPRIV 


/ 


Get 


day value. 






CALL 


ACRDEC 






TST 


Rl 






BLE 


BADDAT 






CMP 


Rl,#31. 






BHI 


BADDAT 






ASH 


#5, Rl 






MOV 


Rl, R5 






CMPB 


<R3)+, #'- 






BNE 


BADDAf 


t 


Get 


month. 








CALL 


GTRD50 






MOV 


R50BUF, RO 






MOV 


#1,R1 






MOV 


#R50M0N, R2 


2* 




CMP 


RO, (R2) + 






BEQ 


1$ 






INC 


Rl 






CMP 


Rl, #12. 






BLOS 


2* 






BR 


BADDAT 


1*. 




ASH 


#10. ,R1 






BIS 


Rl, R5 






CMPB 


<R3)+,#'- 






BNE 


BADDAT 


t 


Get 


year 








CALL 


ACRDEC 






CMP 


Rl,#99. 






BHI 


BADDAT 






SUB 


#72. ,R1 






BLE 


BADDAT 






BIS 


Rl, R5 


t 


Set 


system d 


ate value. 






MOV 


R5, SYSDAT 






JMP 


RDCMD 


f 


Invc 


ilid date 


value. 


BAl 


3D AT: 


BISB 


#10, INDERR 






FABORT 


#INVDAT 



CONVERT TAB AND FF CHARS TO SPACES 
DOES HE WANT TO SHOW OR CHANGE THE DATE? 
BR TO SET THE DATE 
GO DISPLAY THE DATE 



i MAKE SURE THIS USER IS PRIVILEGED 

; ACCRUE DAY VALUE 

; CHECK RANGE OF VALUE 

; CAN'T BE ZERO 

i OR GREATER THAN 31 

; POSITION FOR DATE WORD 

i CONSTRUCT DATE WORD IN R5 

; HYPHEN SHOULD BE NEXT 



ACCRUE RAD50 MONTH VALUE 

GET RAD50 VALUE OF MONTH NAME 

FIRST MONTH IS # 1 

POINT TO TABLE OF MONTH NAMES 

LOOK UP NAME IN TABLE 

BR IF FOUND 

ADVANCE MONTH NUMBER 

ONLY 12 MONTHS 

BAD MONTH NAME 
POSITION MONTH VALUE 
AND OR INTO DATE WORD 
SHOULD HAVE ANOTHER HYPHEN 



i GET YEAR VALUE 

i CHECK FOR REASONABLE UPPER LIMIT 

iBR IF TOO HIGH 

; YEAR VALUE IS BIASED BY 72 

iBR IF TOO SMALL 

i FORM DATE WORD 

; SET NEW SYSTEM DATE VALUE 
; FINISHED WITH COMMAND 



i SAVE ERROR LEVEL 
; INVALID DATE 



SEVERE FOR IND 
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I 

\ 
I < 

I < 

I 

I' 

I 

• f 

f 

I 

i 

* t 
I ( 



1 
2 
3 
4 
5 010454 






- = = 




. au ! i L 


line comma no 


i 


Process the 


TIME command. 


004767 


0000000 


i 

CMDTIM: 


CALL 


CVTTAB i 


6 010460 


105713 








TSTB 


<R3) ; 


7 010462 


001002 








BNE 


2« i 


e 010464 

9 
10 
11 
12 010470 


000167 


0000000 






JMP 


SOPTIM ; 








Set 


neiu sys 


tem time (requires 


004767 


OOOOOOG 


i 

2* 




CALL 


CKPRIV i 


13 






i 


Get 


hour va 


lue. 


14 010474 


004767 


0000000 






CALL 


ACRDEC i 


15 010500 


020127 


000030 






CMP 


Rl,#24. ; 


16 010504 


103053 








BHIS 


BADTIM 


17 010506 


010104 








MOV 


R1,R4 


IS 010510 


070427 


000074 






MUL 


#60. , R4 ; 


19 010514 


122327 


000072 






CMPB 


(R3)+,#': i 


20 010520 


001045 








BNE 


BADTIM 


21 






J 


Get 


minute 


value. 


22 010522 


004767 


OOOOOOG 






CALL 


ACRDEC i 


23 010526 


020127 


000074 






CMP 


Rl,#60. ; 


24 010532 


103040 








BHIS 


BADTIM 


25 010534 


060105 








ADD 


R1.R5 i 


26 010536 


005504 








ADC 


R4 


27 010540 


012700 


000074 






MOV 


#60. , RO > 


28 010544 


004767 


OOOOOOG 






CALL 


MUL32 


29 






> 


See 


if seconds are specified 


30 010550 


122327 


000072 






CMPB 


(R3)+,#': i 


31 010554 


001011 








BNE 


3* .' 


32 






t 


Get 


second 


value 


33 010556 


004767 


OOOOOOG 






CALL 


ACRDEC i 


34 010562 


020127 


000074 






CMP 


Rl,#60. ; 


35 010566 


103022 








BHIS 


BADTIM 


36 010570 


060105 








ADD 


R1,R5 i 


37 010572 


005504 








ADC 


R4 


38 010574 


012700 


000074 






MOV 


#60. , RO i 


39 






> 


Convert time to # clock ticks. 


40 010600 


032767 


OOOOOOG OOOOOOG 


3* 




BIT 


#CW*50H, CONFIG ; 


41 010606 


001402 








BEG 


1* / 


42 010610 


012700 


000062 






MOV 


#50. > RO ; 


43 010614 


004767 


OOOOOOG 


1* 




CALL 


MUL32 i 


44 






/ 


Set 


new sys 


tem time. 


45 010620 


010467 


OOOOOOG 






MOV 


R4, SYTIMH i 


46 010624 


010567 


OOOOOOG 






MOV 


RSiSYTIML i 


47 010630 


000167 


OOOOOOG 






JMP 


RDCMD i 


48 






f 


Bad 


time va 


lue entered 


49 010634 


152767 


000010 OOOOOOG 


BADTIM: 


BISB 


#10, INDERR J 


50 010642 










FABORT 


#INVTIM i 



CONVERT TAB AND FF CHARS TO SPACES 
DOES HE WANT TO SHOW OR CHANGE THE TIME? 
BR TO SET THE TIME 
GO SHOW THE TIME 

operator privilege) 

MAKE SURE USER HAS OPERATOR PRIVILEGE 

ACCRUE HOUR VALUE 
ONLY 24 HOUR IN A DAY 



CONVERT TO # MINUTES 

COLON SHOULD BE THE DELIMITER 



ACCRUE MINUTE VALUE 
ONLY 60 MINUTES PER HOUR 

COMBINE WITH HOUR VALUfc 

CONVERT # MINUTES TO # SECONDS 

DELIMITER FOR SECONDS? 
NO, IGNORE SECONDS 

ACCRUE SECOND VALUE 

NO MORE THAN 60 SECONDS PER MINUTE 

COMBINE WITH HOURS AND MINUTES 

60 HZ CLOCK TICKS PER SECOND 

50 OR 60 HZ CLOCK? 

BR IF 60 HZ 

SET FOR 50 HZ CLOCK 

CONVERT # SECONDS TO # CLOCK TICKS 

HIGH-ORDER TIME VALUE 
LOW-ORDER TIME VALUE 
FINISHED 

SAVE ERROR LEVEL = SEVERE FOR IND 
INVALID TIME VALUE 
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1 

2 








3 








4 








5 








6 
7 
8 


010652 


004767 


OOOOOOG 


010656 


005067 


OOOOOOG 


9 


010662 


005067 


OOOOOOG 


10 


010666 


005067 


OOOOOOG 


11 


010672 


005067 


OOOOOOG 


12 








13 


010676 


012701 


010720' 


14 


010702 


012102 




15 


010704 


001403 




16 


010706 


005022 




17 


010710 


005012 




18 


010712 


000773 




19 


010714 


000167 


OOOOOOG 


20 








21 








22 








23 


010720 


OOOOOOG 




24 


010722 


OOOOOOG 




25 


010724 


OOOOOOG 




26 


010726 


OOOOOOG 




27 


010730 


OOOOOOG 




28 


010732 


OOOOOOG 




29 


010734 


OOOOOOG 




30 


010736 


OOOOOOG 




31 


010740 


OOOOOOG 




32 


010742 


OOOOOOG 




33 


010744 


OOOOOOG 




34 


010746 


OOOOOOG 




35 


010750 


OOOOOOG 




36 


010752 


000000 





SBTTL RESET command 



; The RESET c 
; Operator pr 

i 

CMDRST: CALL 

i Reset data 
CLR 
CLR 
CLR 
CLR 

i Reset 32-bi 
MOV 

1*: MOV 
BEQ 
CLR 
CLR 
BR 

2*: JMP 



ommand resets system usage statistics, 
ivilege is required. 



CKSYPV 
cache statistics 

DCTRD 

DCCRD 

DCTWR 

DCCWR 
t data cells 

#RSTVEC,R1 

(Rl)+, R2 

2* 

(R2) + 

(R2) 

1* 

RDCMD 



> Require SYSPRV privilege 

TOTAL NUMBER OF READS FROM SHARED FILES 
NUMBER OF READS FOUND IN CACHE 
TOTAL NUMBER OF WRITES TO SHARED FILES 
NUMBER OF WRITES THAT UPDATE CACHE DATA 

POINT TO VECTOR OF ADDRESSES TO CLEAR 
GET ADDRESS OF A CELL TO ZERO 
BR IF HIT END OF LIST 
CLEAR HIGH-ORDER WORD 
CLEAR LOW-ORDER WORD 



; FINISHED 
Vector of 32-bit cells to clear. 



RSTVEC: 



. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 



TMTOTH 

TMUSRH 

TMSWTH 

TMIOH 

TMSWPH 

TMIOWH 

TMIDLH 

CASTRO 

CASTBR 

CASCBR 

CASTWO 

CASTBW 

CASCUP 
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i 

I 

I 4 



I 



< 



i 
t 
f 

i 



3 
4 
5 
6 
7 
8 
9 



22 
23 
24 
25 
26 



010754 116701 OOOOOOe 



01 



10 01 

11 01 
12 

13 
14 

15 01 

16 01 

17 01 

18 01 

19 01 

20 01 

21 01 
01 
01 
01 
01 
01 

27 01 

28 01 

29 01 
30 

31 
32 

33 01 

34 01 
35 

36 
37 

38 01 

39 01 

40 01 

41 01 
42 
43 

44 

45 01 

46 01 

47 01 

48 01 

49 01 

50 01 

51 01 

52 01 

53 01 

54 01 

55 01 

56 01 

57 01 



0760 
0764 
0770 



0774 
1000 
1002 
1006 
1010 
1014 
1016 
1024 
1026 
1034 
1036 
1044 
1046 
1052 
1054 



1060 
1066 



1072 
1076 
1102 
1106 



1114 
1120 

1122 
1126 
1134 
1154 
1162 
1164 
1170 
1174 
1210 
1212 



. SBTTL OFF commanfl 
LOG OFF. 
CMDOFF: MOVE C0RUSR,R1 i GET USER INDEX # 

See if any qualifiers were specified with command 



105067 
012704 
004767 



020127 
101027 
105767 
001024 
105767 
001021 
032761 
001015 
032761 
001011 
032761 
001005 
004767 
103002 
000167 



052761 
005067 



004767 
004767 
004767 
052761 



005767 
001471 
004767 
1 1 2767 

1 1 2767 
103013 
004767 
005067 

000435 

103745 



167061 
000250 ' 
OOOOOOG 



OOOOOOG 
167037 
OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
001142 
OOOOOOG 



OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 

000001 OOOOOOG 

000000 OOOOOOG 

OOOOOOG 
OOOOOOG 



CLRB 

MOV 

CALL 



OFFNWF 
#OFFHD, R4 
OPTLST 



; Clear NOWARN flag 

; Point to parsing table 

/Process any qualifiers 



See if this is a primary process logging off with active subprocesses 

Is this a primary process? 

Br if not 

Was /NOWARN qualifier specified? 

Br if yes — Don't worry about subprocesses 

Is this a STOP request? 

Br if yes — Don't worry about subprocesses 

Did we exit a locked program? 

Br if yes — Don't worry about subprocesses 

Are we allowed to have terminal input? 

Br if not 

Have we already done a logAoff command file? 

Do logoff if so 

See if we need to warn about subprocesses 

Br if we should logoff 

Abort the logoff 

Do the logoff. 

14*: BIS #«NOIN, LSW3<R1) ; DON'T ALLOW ABORT OF LOGOFF 

CLR RESDEV i RELEASE ALL DEVICE/FILE ACCESS RESTRICTIONS 

Close all of user's files. 

CALL PRGALL 

CALL INDABT 

CALL ABRTCF 

BIS #*NOIN, LSW3<R1) 



CMP 


R 1 , #LSTPL 


BHI 


14* 


TSTB 


OFFNWF 


BNE 


14* 


TSTB 


STPFLG 


BNE 


14* 


BIT 


#*PROLK, LSW5<R1) 


BNE 


14* 


BIT 


#*N0IN>LSW3<R1) 


BNE 


14* 


BIT 


#*LOFCF, LSW9<R1) 


BNE 


14* 


CALL 


CKOFSP 


BCC 


14* 


JMP 


RDCMD 



PURGE ALL OF USER'S CHANNELS 

Abort IND and nested command files 

CLOSE THE CONTROL FILE 

CLEARED BY ABRTCF <POPCF)i SET IT AGAIN 



TST 


LOFSPC 


BEG 


3* 


CALL 


PUSHCF 


MOVB 


#1,SERFLG 



Determine if we need to invoke a logoff command file 

i Is there a logoff command file? 

} Br if not 

i Prepare to open new command file 

; Do . SERR 

-LOOKUP #XAREA. #CFCHAN, #LOFSPC ; Try to open the command file 
MOVB #0, SERFLG i Do . HERR but don't affect carry flag 
BCC 10* ; Br if open was ok 

11*: CALL POPCF ; Pop command file status 

CLR LOFSPC /No logoff command file 

FERR #EM*OLO ; Cannot open logoff command file 

BR 3* 
10*: . READW #XAREA, #CFCHAN, #CFBUF, #256. , #0 ; Read Ist block of file 
BCS 11* ; Br if read error 
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53 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 

-T/-V 

/ u 

71 
72 
73 
74 
75 
76 
77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

HO 

111 

112 

113 

114 



011252 
011260 
011266 
011274 
011300 



011304 
011310 
011314 
011320 

011330 
011332 



011344 
011352 
011354 
011360 
011366 
011372 
011374 
011400 
011402 
011410 
011414 
011416 
011424 
011430 
011440 

011442 
011446 
011452 
011456 
011462 
011466 
011472 
011476 



011502 
011506 

011510 
011514 
011516 
011522 



052761 
052761 
042761 
005067 
000167 



012702 
012703 
012700 
012722 

077005 
052767 



OOOOOOS OOOOOOG 
0000000 OOOOOOG 
OOOOOOG OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG 

177777 

177777 

OOOOOOG OOOOOOG 



BIS #*CFOPNj LSW4<R1 ) j Say CFCHAN is open 

BIS #*LOFCF, LSW9<Ri )> Say we are processing logoff command file 

BIG #*DOOFF, LSW<R1 ) ; Say not doing logoff processing yet 

CLR LOFSPC i Say logoff command file has been started 

JMP RDCMD i Go process 1st command in command file 

Enable privilege during logoff processing 



3*: 



12*: 



MOV 
MOV 
MOV 
MOV 
MOV 
SOB 
BIS 



#PRIVCO, R2 
#PRIVS0>R3 
#PVNPW, RO 
#177777. <R2)+ 
#177777, <R3>+ 
RO. 12* 
#LF*WRT, LOGFLG 



j Point to current privilege ujord 
; Point to set privileges 
;Get # privilege words 
i Set all privilege flags 



all 



011340 004767 OOOOOOG 



032761 
001033 
016100 
042760 
020127 
101403 
005760 
001020 

105767 
001403 



OOOOOOG OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG 



OOOOOOG 



004767 OOOOOOG 



13*: 



5*: 



Dismount 

CALL 

Print usage 

BIT 

BNE 

MOV 

BIC 

CMP 

BLOS 

TST 

BNE 

. PRINT 

TSTB 

BEQ 

. PRINT 

CALL 



; ENABLE WRITES TO LOG FILE 

devices that were mounted by this job. 

DMTALL .Dismount all mounted devices 

statistics for line 

#*VN0TT,LSW(R1) ; IS THIS JOB CONNECTED TO A TERMINAL? 

7* i BR IF NOT 

LNPRIM(R1).R0 ; GET PRIMARY LINE # 

#*CTRLS, LSW3(R0)iMAKE SURE OUTPUT IS ENABLED 



R 1 . #LSTDL 

13* 

LWINDO<RO) 

7* 

#CRLF 

STPFLG 

5* 

#SHTMSG 

PRTTIM 



TTYOUT #LF 



Is this a subprocessT' 

Br if not 

Does primary process have windowing on? 

Br if yes — Don't display logoff time 

IS SYSTEM BEING SHUT DOWN? 

BR IF NOT 

PRINT SHUT-DOWN MESSAGE 

PRINT USAGE INFO 

PUT OUT EXTRA LF 



000420 

016104 
016105 
016703 
004767 
012700 
004767 
010467 
010567 



016105 
001535 

012702 
005022 
020227 
103774 



BR 



TIMUP 



IF PRTTIM DIDN'T DO CPU CALCULATION WE MUST DO IT HERE. 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000012 

OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



7*: 



MOV LCPUHI(R1),R4 

MOV LCPUL0(R1>.R5 

MOV TKISECRS 

CALL DIVIDE 

MOV #10. .RO 

CALL MUL32 

MOV R4, CPUAH 

MOV R5. CPUAL 



GET HIGH-ORDER CPU TIME (CLOCK TICKS) 
GET LOW-ORDER CPU TIME (CLOCK TICKS) 
GET # CLOCK TICKS PER SECOND 
CONVERT TIME VALUE TO # SECONDS 
CONVERT TIME VALUE TO 0. 1 SECOND 
UNITS BY MULTIPLYING BY 10 
SAVE HIGH-ORDER PART <0. 1 SEC) 
SAVE LOW-ORDER PART (0. 1 SEC) 



; If user logged on. 

i 

TIMUP: 

i DO A 



then accumulate his connect time 



MOV LPR0J(R1).R5 

BEQ NOTIM 

DEASSIGN 

MOV #ASNTBL. R2 
1*: CLR <R2)+ 

CMP R2. #ASNEND 

BLD 1* 
i Try to open accounting file 



; DO WE HAVE A PPN FOR USER? 
;BR IF NOT — DIDN'T LOG ON 

; CLEAR ALL OF HIS ASSIGNS 
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115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 



011524 
011544 
011546 
011554 

011556 
011560 
011564 
011622 
011624 
011630 
011634 
011640 
011644 
011646 
011652 
011654 
011660 
011662 
011664 
011666 

011670 
011674 
011700 
011702 



011712 
011720 
011724 

011732 
011736 
011774 



01 2002 



012006 
012012 
012020 



012022 
012026 
012030 



012032 
012040 



■I /^^rKf\Ji 

000512 

005002 
016103 

103464 
004767 
012704 
012700 
020564 
001003 
020364 
001406 
062704 
005300 
001366 
005202 
000736 

016700 
166100 
005200 
060064 



011706 005264 



066764 
005564 
066764 



012700 
012760 
104375 



105767 
001460 
003046 



052761 
120127 



OOOOOOG 

000544 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 



004767 000436 



004767 OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



. LOOKUP #XAREA, #1, #AUTHFN 
BCC 2* i SR IF 

.PRINT #COAF ; PRINT WARNING MESSAGE 

BR NOTIM 
Search file for user's ppn entry 



2*: 
6$: 



CLR R2 

MOV LPR0G(R1),R3 



. READW #XAREA, #1. #BLKO, #256. , R2 



BCS 

CALL 

MOV 

MOV 
5*; CMP 

BNE 

CMP 

BEQ 
8*; ADD 

DEC 

BNE 

INC 

BR 
i Found record. 
4* : MOV 

SUB 

INC 
7*: ADD 



3* 

CVTBUF 

#BLKO, R4 

#ARNRPB, RO 

R5, AR*PRJ(R4) 

8* 

R3, AR«PRG<R4) 

4* 

#AR**SZ, R4 

RO 

5* 

R2 



SET BLOCK # TO O 
GET PROGRAMMER # 



BR IF END OF FILE HIT 

COMPLEMENT CONTENTS OF BUFFER 

SEARCH FOR RECORD IN BLOCK 

# RECORDS PER BLOCK 

DO PROJECT #'S MATCH? 

BR IF NOT 

HOW ABOUT PROGRAMMER NUMBERS 

BR IF WE FOUND THE RECORD 

KEEP LOOKING IN BLOCK 

ANY MORE RECORDS IN THIS BLOCK? 

BR IF YES 

GO READ NEXT BLOCK 



OOOOOOG 



6* 

Add in new connect time 
MINTIM. RO ; GET CURRENT TIME 
LCONTM(Ri),RO i CALCULATE CONNECT TIME 
RO 

RO, AR*CDN<R4) ; ACCUMULATE CONNECT TIME 
COUNT NUMBER OF SESSIONS 

INC AR*CNT<R4) ; INC SESSION COUNTER 
ACCUMULATE CPU TIME 

ADD CPUAL, AR«CPL<R4) ; ADD IN LOW-ORDER CPU TIME 
ADC AR*CPH(R4) ; ADD CARRY 
OOOOOOG ADD CPUAH, AR*CPH<R4 ) i ADD IN HIGH-ORDER PART 

} WRITE UPDATED ACCOUNTING RECORD BACK TO FILE 

CALL CVTBUF ; COMPLEMENT CONTENTS OF BUFFER 

. WRITW #XAREA, #1, #BLKO, #256. ,R2 
3*: . CLOSE #1 

Close job's log file 

NOTIM: CALL LOGCLS J CLOSE LOG FILE 

Broadcast message to any monitoring .jobs telling them we are logging off 



000002 



MOV #GENMON, RO 
MOV #JS*OFF, 2<R0> 
EMT 375 

Entpr TSX to finish log off. 



TSTB 


STPFLG 


BEQ 


1* 


BGT 


15* 



iPoint to emt argument block 

i Set status code 

i Broadcast status message 



; ARE WE DOING A SYSTEM SHUTDOWN? 

; BR IF NOT 

i Br if *STOP or BOOT specified 



OOOOOOG 



Shutdown was specified. 

BIS #«N0ABT.LSW9(R1); Don't allow job abort 
CMPB R1,#LSTPL ils this a detached job? 



< 
f 

€ 
C 

I 

C 

i 
c 

« 

i 
i 

€ 

( 
( 
I 
I 
I 



i 

( 

, f 
I 
( 

f 

. f 
I 
I 
< 

( 
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I. / a. 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 



012044 
012046 
012052 
012054 
012062 



012064 
012070 
012074 
012076 

\Ji.fi.\\Jii. 

012106 
012110 
012114 



012116 
012122 
012124 
012144 



012146 
012154 
012162 
012164 
012170 
012174 
012200 
012204 



i. u340>j 
120127 
101435 
126727 
003031 



012702 
120267 
001405 
012700 
010260 
104375 
162702 
001365 



004767 
1030U 

000764 



042761 
126727 
003002 
000167 
005061 
005061 
012700 
104375 



OOOOOOG 

0000000 000001 10*: 



Thursday 


19-Jan-89 


BLO 


10* 


CMPB 


R 1 , #LSTDL 


BLOS 


15* 


CMPB 


PVON, #1 


BGT 


15* 
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•Br if not detached 

; In the detached range? 

J Yesj job is detached 

; Are we the last primary/virtual job? 

J Br if more jobs exist 



Kill all jobs <only detached jobs should be active) 



OOOOOOG 
OOOOOOG 

OOOOOOG 
000004 

000002 



11* 



»* 



OOOOOOG 



13* 



MOV 


#LSTSL, R2 


CMPB 


R2, CORUSR 


BEQ 


12* 


MOV 


#KILEMT, RO 


MOV 


R2,4(R0) 


EMT 


375 


SUB 


#2. R2 


BNE 


11* 


Determine if 


the spooler is 


CALL 


SPLACT 


BCC 


15* 


. TWA IT 


#XAREA, #T1MHPL 


BR 


13* 



GET # OF LAST LINE 
IS THIS OUR LINE? 
BR IF YES 
POINT TO KILL 
SET # OF LINE 
KILL THE LINE 
DO NEXT LINE 



EMT ARG BLOCK 

TO KILL 



still active. 

; Is the spooler still 
> Br if spooler is not 



active? 
active. 



Wait 2 seconds — check again 



*STOP or BOOT issued. 



OOOOOOG OOOOOOG 
OOOOOOG 000001 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



15*: 



1*: 



BIC 


#*NOABT. LSW9<R1 


CMPB 


TOTON, #1 


BGT 


1* 


JMP 


DOSTOP 


CLR 


LPR0J<R1) 


CLR 


LPR0G<R1) 


MOV 


#OFFEMT, RO 


EMT 


375 



AIIquj job abort <necessary for 

Are ue the last job on system? 

Br if more jobs exist 

GO STOP THE SYSTEM 

CLEAR PROJECT/PROGRAMMER # 



"% r\n r\t^f^\ 



POINT TO LOG-OFF 
LOG OFF THIS JOB 



EMT ARG BLOCK 



c 
I 

4 
I 

( 

< 
f 

i 
( 
i 
I 

f 

i 

i 
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I « 



I 
I I 

' c 
I 



1 








2 








3 








4 








5 


012206 


105267 


165633 


6 


012212 


000207 




7 








8 








9 








10 








11 








12 








13 








14 








15 








16 








17 








18 








19 


012214 


010246 




20 


012216 


010546 




21 








22 








23 








24 


012220 


005005 




25 


012222 


01610^ 


OOUOOOW 


26 


012226 


012700 


OOOOOOG 


27 


012232 


001454 




28 


012234 


105722 




29 


012236 


001401 




30 


012240 


005205 




31 


012242 


077004 




32 


012244 


005705 




33 


012246 


001446 




34 








35 








36 








37 








38 


012250 


020527 


000001 


39 


012254 


003004 




40 


012256 






41 


012264 


000410 




42 


012266 






43 


012274 


004767 


ooooooe 


44 


012300 






45 








46 








47 








48 


012306 






49 








50 








51 








52 








53 


012326 


012702 


OOOOOOG 


54 


012332 


1 1 2200 




55 


012334 


001411 




56 


012336 


120027 


000040 


57 


012342 


001773 





Subroutine called if the /NOWARN qualifier is specified with the OFF 
command. 



OFFNWN: INCB OFFNWF 
RETURN 



; Set NOWARN flag 



Subroutine called to determine if primary process has any active 
subprocessBs and print warning message if so. 

Inputs: 
Rj. " Process index numbcfr 

Outputs: 
C-flag cleared ==> Proceed with logoff. 
C -f lag set ==> Abort the logoff. 



f 
I 

i 
I 



CKOFSP ; MOV 
MOV 



R2, -(SP) 
R5, -<SP) 



See if this process has any active subprocesses 



1*: 



4*: 



CLR 


R5 


MOV 


LSECPT(Rl). H2 


MOV 


#MAXSEC. RO 


BEQ 


7* 


TSTB 


<R2) + 


BEQ 


4* 


INC 


R5 


SOB 


RO, 1« 


TST 


R5 


BEQ 


7* 



Count active subprocesses in R5 

Point to table of subprocess #'& 

Get max # subprocesses 

Br if none to check 

Is this subprocess active? 

Br if not 

Count # active subprocesses 

Loop to check all 

Any active subprocesses? 

Br if not 



There are active subprocesses. 
Print warning message. 



?*: 



CMP 


R5, #1 


BGT 


2* 


. PRINT 


#TM*SA1 


BR 


5* 


. PRINT 


#TM*SA3 


CALL 


PRTDEC 


. PRINT 


#TM*SA4 



; One active subprocess? 

; Br if more than one 

; You have 1 active subprocess 

> You have 

iPrint # subprocesses 

; active subprocesses 



Read response 



5*: 



. GTLIN #BLKO, #TM*SA2 ; Print prompt and read response 



> If first non-blank letter of response is "Y" then logoff, 
; otherwise abort the loqoff. 



3*: 



MOV #BLKO, R2 

MOVB <R2)+, RO 

BEQ 8* 

CMPB RO, #40 

BEQ 3* 



; Point to response buffer 
j Get next char of response 
i Br if hit end of line 
; Ignore spaces 



I 
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1 1 


58 


012344 


120027 000131 


59 


012350 


001405 




60 


012352 


120027 000171 




61 


012356 


001402 


') * 


62 
63 
64 








65 


012360 


000261 




66 


012362 


000401 


1 

■ 


67 






68 








69 








70 


012364 


000241 


71 








72 






1 i 


73 






74 


012366 


012605 




75 


012370 


012602 




76 


012372 


000207 


















1 i 








1 
























1 








\ 1 
















1 








( * 








1 c 

\ 
















1 ' 









CMPB 




RQ, #'Y 


BEQ 




7* 


CMPB 




RO, #'y 


BEQ 




7* 


; Abort the 


logoff 


8*: SEC 






BR 




9* 


i Allow the 


logoff 


7*: CLC 






; Finished 






9*; MOV 




(SP)+, R5 


MOV 




<SP)+, R2 


RETURN 





; Is response Yes? 

; Br if yes 

;Allou louier-case too 



.: Signal abort on return 



i Signal to logoff 



I 
I 



< 

I 
i 
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2 






; Comp 


lement 


the eonten 


3 
4 
5 012374 






; We d 


this 


to mildly 


010146 




CVTBUF: 


MOV 


Rl, -<SP) 


6 012376 


010246 






MOV 


R2, -(SP) 


7 012400 


012701 


OOOOOOG 




MOV 


#BLKO, Rl 


8 012404 


012702 


000400 




MOV 


#256. , R2 


9 012410 


005121 




1$: 


COM 


<R1) + 


10 012412 


077202 






SOB 


R2, 1* 


11 012414 


012602 






MOV 


<SP)+, R2 


12 012416 


012601 






MOV 


<SP)+,R1 


13 012420 


000207 






RETURh 


i 



ts of BLKO buffer, 
encript the authorization 



file. 



POINT TO BUFFER 

GET # WORDS TO COMPLEMENT 

COMPLEMENT CONTENTS OF BUFFER 



I 
f 
f 



i 

4 

C 
i 
i 
« 
I 

i 
i 
4 
( 
I 
( 
C 



t 
I 
I 
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e 








3 








4 








5 


012422 


012705 


ooooooe 


6 


012426 


000405 




7 








8 








9 








10 








11 








12 


012430 


012705 


OOOOOOG 


13 


012434 


000402 




14 








15 








16 








17 








18 








19 


012436 


012705 


OOOOOOG 


20 








21 








22 








23 


012442 


004767 


OOOOOOG 


24 


012446 


004767 


OOOOOOG 


25 


012452 


006301 




26 


012454 


001403 




27 


012456 


020127 


OOOOOOG 


28 


012462 


101404 




29 


012464 






30 








31 








32 








33 


012474 


010102 




34 


012476 


004767 


OOOOOOG 


35 


012502 


103404 




36 








37 








38 








39 


012504 


010500 




40 


012506 


010160 


000004 


41 


012512 


104375 




42 








43 








44 








45 


012514 


000167 


OOOOOOG 
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. SBTTL KILL commaiid 
; The KILL command is used to abort the specified job. 



CMDKIL; MOV 
BR 



#KILEMT, R5 
JOBCOM 



j Point to Kill EMT arg block 



. SBTTL SUSPEND command 
Suspend the execution of a specified job 



CMDSPN: MOV 

BR 



#SJEMT, R5 
JOBCOM 



i Point to suspend EMT arg block 



. SBTTL RESUME command 



i Resume the execution of a suspended job 



CMDRSM: MOV #RJEMT, R5 
i Accrue the job number 



JOBCOM: 


CALL 


CVTTAB 




CALL 


ACRDEC 




ASL 


Rl 




BEQ 


1* 




CMP 


R 1 > #LSTSl 




BLOS 


2* 



1$: FABORT #BDLIN 

i 

i See if we are privileged to affect this job 

i 

2*: 



i Point to resume EMT arq block 



; convert tab and FF chars to spaces 

iaccrue decimal value 

; Convert # to job index number 

; Br if invalid line number 

i Is this a valid line number 

> Br if ok 

i Invalid line number 



MOV 


R1,R2 


CALL 


CKACOJ 


BCS 


9« 



iGet job # to R2 for CKACOJ 
/Can uie access this job 
i Br if not 



Execute EMT to affect the job 



MOV 
MOV 
EMT 

t 

I Fini Bhed 

I 

9*; JMP 



R5, RO 

R1,4(R0) 

375 



RDCMD 



i Point to EMT arg list 

; Set job number 

i Perform the function 



I 

c 
f 
I 

< 
I 

( 
I 
i 

€ 

i 
i 
< 
I 

i 

i 
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3 
4 
5 
6 
7 
8 
9 
10 
11 



J.e: u 
13 

14 

15 

16 

17 

18 O 

19 

20 

21 

22 

23 

24 

25 
26 
27 
28 
29 

30 

31 

32 

33 

34 
35 

36 

37 

38 

39 
40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 
52 
53 
54 

55 

56 

57 



12520 
12524 



12530 
12534 
12536 

12540 
12544 
12552 
12556 
12562 
12566 
12606 
12610 
12630 
12636 
12644 
12652 



12660 
12662 
12670 
12672 
12700 

12702 
12706 

12710 
12716 

12720 
12722 
12724 
12732 
12736 
12742 
12744 
12750 
12752 
12756 
12760 



12764 
12772 
12776 



004767 
004767 



005067 
105713 
001450 

004767 
016767 
005067 
005067 
005067 

103510 

016767 
066767 
062767 



005005 
126727 
003404 

005205 

004767 
103004 

005205 

005705 
001420 



120027 
001410 
120027 
001405 
120027 
001365 
000167 



112767 
012702 
120267 
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SBTTL BOOT and *STOP commands 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 
000002G 
000004G 
000006G 



165162 OOOOOOG 
165152 OOOOOOG 
000036 OOOOOOG 



Reboot RT-11. 

CMDBOT: CALL CKPRIV 
CALL CVTTAB 



;USER MUST HAVE OPERATOR COMMAND PRIVILEGE 
i CONVERT TAB AND FF CHARS TO SPACES 



See if a boot device was specified. 



CLR BOTDEV 
TSTB (R3) 
BEQ 7* 
Accrue device name. 



ASSUME NO BOOT DEVICE WILL BE SPECIFIED 
WAS A BOOT DEVICE SPECIFIED? 
BR IF NOT — USE SYSTEM DEVICE 

ACCRUE RAD50 DEVICE NAME 

SAVE RAD50 NAME OF BOOT DEVICE 

Clear remaining file specification 



CALL GTRD50 

MOV R50BUF, FILNAM 

CLR FILNAM+2 

CLR FILNAM+4 

CLR FILNAM+6 

.LOOKUP #XAREA, #1, #FILNAM; Open a channel to the boot device 

BCS NODEV i Br if lookup is unsuccessful 

. CSTAT #XAREA» #1» #CINFOi Obtain channel information from boot device 

MOV CINFO+12, BOTDEV > Transfer RAD50 device name to boot device 

ADD C I NF0+10> BOTDEV ;Add unit number to boot device name 

ADD #36, BOTDEV i Convert unit number to radSO 

.CLOSE #1 J Close channel to boot device 

Make sure s"ste.m is idle. 

See if any other users are logged on. 



7$: 



OOOOOOG 000001 



CLR 


R5 


CMPB 


NUMON, #1 


BLE 


1* 


. PRINT 


#OTHRON 


INC 


R5 



OOOOOOG 



; See if the spooler is idle. 

1$: CALL SPLACT 
BCC 2* 
.PRINT #SPLPND 
INC R5 



IDLE FLAG 

ARE WE ONLY JOB LOGGED ON? 

BR IF YES 

OTHER USERS LOGGED ON 

REMEMBER NOT IDLE 

SEE IF SPOOLER IS ACTIVE 

BR IF SPOOLER IS IDLE 

THERE ARE PENDING SPOOL FILES 

REMEMBER SYSTEM IS NOT IDLE 



See if lue need to ask for confirmation. 



2*: 



5«: 



000131 
000171 
000012 
OOOOOOG 



000001 

OOOOOOG 

OOOOOOG 



TST 


R5 


BEQ 


10* 


. PRINT 


#STPASK 


. TTYIN 




CMPB 


RO, #'Y 


BEQ 


10* 


CMPB 


RO, #171 


BEQ 


10* 


CMPB 


RO, #LF 


BNE 


5* 


JMP 


RDCMD 



Force logoff of all user 



OOOOOOG 10*: 
11*: 



MOVB 

MOV 

CMPB 



#1, STPFLG 
#LSTSL, R2 
R2, CORUSR 



WAS SYSTEM IDLE? 

BR IF YES 

ASK FOR CONFIRMATION 

ACCEPT INPUT LINE 

DID HE SAY YES? 

BR IF YES 

LOWER-CASE 'Y' 

; EAT REST OF LINE 

; GO GET NEXT COMMAND 



; SET FLAG SAYING SYSTEM IS BEING STOPPED 
; GET # OF LAST LINE 
> IS THIS OUR LINE? 



I 
I 



i 

i 

i 
i 
f 
< 
i 
i 

c 

I 

( 
t 
c 
< 
I 
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58 


013002 


001405 




59 


013004 


012700 


OOOOOOG 


60 


013010 


010260 


000004 


61 


013014 


104375 




62 


013016 


162702 


000002 


63 


013022 


001365 




64 








65 








66 








67 








68 


013024 


000167 


175724 


69 








70 








71 








72 


013030 






73 









12*: 



BEQ 


12* 


MOV 


#KILEMT. RO 


MOV 


R2, 4(R0) 


EMT 


375 


SUB 


#2, R2 


BNE 


11* 



BR IF YES 

POINT TO KILL EMT ARG BLOCK 

SET # OF LINE TO KILL 

KILL THE LINE 

DO NEXT LINE 



Now enter logoff processing for our line. 
It mill jump to DOSTOP after it finishes. 



JMP CMDOFF 

i 

» Invalid boot device - 

NODEV: FABORT #BADBOT 



i LOG OFF OUR LINE 
could not locate boot device 
; Say bad boot device 



i 

i 
ff 

« 

f 

i 

i 
f 
I 



( 

c 



) 



< 



I 
I 
i 

c 

I 

( 

I 

t 
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^SHUTDOWN command 



-I 
J. 

2 
3 
4 
5 



. SBTTL tSHUTDOWM command 

Do a gentle shutdown of system. Don't force jobs off but don't let 
any log on either. 



6 013040 004767 OOOOOOG CMDSHT: CALL 

7 013044 112767 177777 OOOOOOG MOVE 

8 013052 005067 OOOOOOG CLR 

9 013056 000167 OOOOOOG JMP 
10 000001 . END 

Errors detected: 



CKPRIV 
#-1. STPFLG 
BOTDEV 
RDCMD 



USER MUST HAVE OPERATOR PR IV 
SAY SYSTEM SHUTDOWN TAKING PLACE 
REBOOT FROM SYSTEM DISK 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







10920 

18176 

RT~li 



Words 
Words 



( 43 Pages) 
< 71 Pages) 



Elapsed time; 00; 01; 50. 40 

, LP: TSKM2A=DK: TSKM2A/C/N: SYM 



I 



i 

< 

i 

i 
i 
i 
i 

i 
i 

^ 
i 

< 

I 
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*CFABT 


1-80 


7-17 


7-34 






















«CFOPN 


1-90 


40-58 
























*CTRLS 


1-71 


40-83 
























*DETCH 


1-69 


33-36 


33-124 






















*DILUP 


1-81 


33-97 


33-122 






















*DOOFF 


1-87 


40-60 
























*INKMN 


1-79 


33-103 


33-132 






















*LOFCF 


1-145 


40-25 


40-59 






















*NOABT 


1-148 


40-170 


40-198 






















*NOIN 


1-63 


40-23 


40-33 


40-41 




















«PRGLK 


1-67 


40-21 
























*QUIET 


1-96 


7-21 
























fSCCA 


1-39 


7-15 
























fTTGAG 


1-90 


33-101 


33-128 






















fVNOTT 


1-48 


40-80 
























. . . VI 


7-23 


7-27 


7-50 


8-63 


11-71 


12-53 


14-16 


14-24 


14- 


-37 


22-50 


23-91 


25-54 




28-47 


30-33 


31-11 


31-18 


31-18 


31-18 


31-20 


31-21 


31- 


-21 


31-27 


31-27 


31-32 




31-32 


31-34 


31-34 


31-38 


31-38 


31-39 


31-39 


32-6 


32- 


-10 


32-12 


32-16 


32-20 




32-22 


32-27 


32-33 


32-36 


32-39 


32-41 


32-44 


32-46 


32- 


-50 


32-52 


32-53 


33-99 




33-107 


35-39 


35-41 


35-49 


36-11 


36-11 


36-11 


36-13 


36- 


-13 


36-26 


36-28 


40-49 




40-49 


40-49 


40-56 


40-56 


40-88 


40-91 


40-93 


40-115 


40- 


-115 


40-115 


40-117 


40-122 




40-122 


40-149 


40-149 


40-150 


40-150 


40-193 


41-40 


41-42 


41- 


-44 


41-48 


44-19 


44-19 




44-19 


44-21 


44-25 


44-25 


44-33 


44-38 


44-43 














. . . V2 


23-91 


23-91 


23-91# 


23-91# 


31-18 


31-18 


31-1S# 


31-1S# 


31- 


-21 


31-21# 


31-27 


31-27 




31-27# 


31-27# 


31-32 


31-32 


31-32# 


31'-32# 


31-34 


31-34 


31- 


-34# 


31-34# 


31-38 


31-38# 




31-39 


31~39# 


36-11 


36-11 


36-1 1# 


36-1 1# 


36-13 


36-13# 


40- 


-49 


40-49 


40-49# 


40-49# 




40-56 


40-56 


40-56# 


40-56# 


40-115 


40-115 


40-1 15# 


40-1 15# 


40- 


-122 


40-122 


40-122# 


40-122# 




40-149 


40-149 


40-1 49# 


40-149# 


40-150 


40-1 50# 


44-19 


44-19 


44- 


-19# 


44-1 9# 


44-21 


44-21 




44-21# 


44-21 # 


44-25 


44-25# 




















ABRTCF 


1-115 


40-40 
























ACRDEC 


1-122 


28-21 


30-19 


31-84 


34-52 


35-21 


37-14 


37-39 


38- 


-14 


38-22 


38-33 


43-24 


ACRFIL 


1-121 


18-32 


23-34 


36-9 




















ACROCT 


1-124 


28-11 


28-15 






















AF*BYA 


1-61 


5-6 
























AF*CCA 


1-39 


5-19 
























AF*DBG 


1-43 


5-8 
























AF*DUP 


1-40 


5-7 
























AF*HIE 


1-146 


5-9 
























AF*IND 


1-40 


5-10 
























AF*IOP 


1-147 


5-11 


5-12 






















AF*MEM 


1-61 


5-14 
























AF*NOI 


1-146 


5-15 
























AF*NaW 


1-146 


5-16 
























AF*NPW 


1-39 


5-17 
























AF*PLK 


1-43 


5-13 
























AF$SCA 


1-64 


5-21 
























AF*SET 


1-40 


5-20 
























AF*TPO 


1-42 


5-22 
























AF*UCL 


1-40 


5-23 
























ALCIDV 


4-6# 


ll-ll-tJ 


11-43 


11-45* 


11-86 


12-5* 


12-31* 


12-61 












ALCDEV 


1-28 


1 1 -39 N- 


12-43* 


12-63* 


22-41* 


26-38* 


26-68 














ALDBLK 


1-132 


31-17^f 


31-18 






















ALDEMT 


1-68 


11-49 
























ALDEX 


1-131 


31-11 


31-11 






















ALFN 


1-141 


31-27 
























AMBOPT 


1-122 


29-66 
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AR**SZ 


1-144 


40-131 










ARfCNT 


1-143 


40-142# 










AR*CON 


1-143 


40-140# 










AR*CPH 


1-143 


40-145* 


40-146* 








AR«CPL 


1-143 


40-144* 










AR*PRG 


1-143 


40-129 










AR*PRJ 


1-143 


40-127 










ARNRPB 


1-144 


40-126 










ASCIS 


8-53 


8-62# 










ASCSOK 


8-65 


8-8 1# 










ASDELM 


8-17 


9-7# 










ASDEX 


1-119 


S-63 










ASF ID 


8-36 


S-57# 










ASKLNM 


1-118 


8-8* 


8-52* 


8-85 






ASNEND 


1-83 


10-14 


10-28 


40-112 






ASNOVF 


1-119 


8-97 










ASNSRC 


1-103 


8-82 


8-90 


8-94 


25-31 


29-21 


ASNTBL 


1-81 


10-12 


10-22 


40-110 






ASSMPL 


8-42# 












AT**S2 


1-82 


10-27 










AT*DEV 


1-82 


8-B4 


8-105* 


10-26* 


25-33 


29-23 


ATfEXT 


1-82 


8-108* 










AT*FIL 


1-82 


8-106* 


8-10/* 








AT*LOG 


1-82 


8-102* 


10-23 


10-25* 






AT*SIZ 


1-82 


8-103* 










AUTHFN 


1-136 


40-115 










BADBOT 


1-148 


44-72 










BADCMD 


1-118 


8-15 


29-12 








BADDAT 


37-16 


37-18 


37-22 


37-33 


37-37 


37-41 


BADTIM 


38-16 


38-20 


38-24 


38-35 


3S-49# 




BDFNAM 


1-121 


18-99 


23-36 


24-17 


36-37 




BDLIN 


1-134 


33-34 


35-25 


43-29 






BELL 


2-7# 


33-49 










BLANK 


2-6# 


33-65 










BLKO 


1-117 


31-32 


31-34 


40-122 


40-125 


40-149 


BLKWDS 


2-10# 












BOTDEV 


1-78 


44-10* 


44-22* 


44-23* 


44-24* 


45-8* 


C. CSW 


1-88 


27-27 










C. DEVQ 


1-88 


27-31 










CASCBR 


1-75 


39-32 










CASCUP 


1-75 


39-35 










CASTBR 


1-75 


39-31 










CASTBW 


1-75 


39-34 










CASTRO 


1-76 


39-30 










CASTWO 


1-76 


39-33 










CCLSAV 


1-73 


27-59 










CD**SZ 


1-89 


26-115 










CD«BAS 


1-89 


26-96 










CD$DVU 


1-89 


26-94 










CDBUF 


1-47 


26-94 


26-96 








CDGET 


1-47 


26-93 










CFBUF 


1-73 


40-56 










CFCHAN 


1-95 


40-49 


40-49 


40-56 


40-56 




CFPNT 


1-96 


7-8 










CFSPND 


1-100 


7-8* 


7-35 


7-37* 






CFSTOP 


1-41 


7-10 
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> ' Cross reference table <CREF V05. 05) 

i # 

CFSTRT 1-41 7-36 

CHKALC 1-62 26-69 

CHKDEV 1-139 13-30 lB-53 26-75 27-18 

CHKDLM 1-130 29-50 

CHKMNT 1-120 25-50 26-48 

CHKMTX 1-120 25-52 26-54 

CINFO 4-7# 44-21 44-22 



26-106 




44-23 




31-50 


31-78 


37-12 


38-12 



I CMDINS 1-28 15-5# 

CMDKIL 1-31 43-5# 

CMDMNT 1-30 22-S# 

CMDMON 1-30 28-7# 

CMDOFF 1-26 40-5# 44-68 

CMDPAU 1-32 7-S# 

I CMDREM 1-31 13-S# 

) CMDRSM 1-28 43-19# 

• CMDRST 1-29 39-6# 

CMDSHT 1-33 45-6# 

CMDSND 1-29 33-21 # 

CMDSPN 1-28 43-12# 

CMDSPO 1-31 29-8# 

' , CMDSQZ 1-32 26-9# 



CMDTIM 1-30 3S-5# 

CMDYEL 1-28 33-6# 

COAD 1-132 31-20 

COAF 1-142 40-117 

COAL 1-132 31-8 

CONFIG 1-86 38-40 

* CORUSR 1-49 33-50 33-120 34-40 40-5 40-181 44-57 

CPUAH 1-127 40-102* 40-146 

CPUAL 1-127 40-103* 40-144 

CR 2-5# 33-47 33-84 



» CRLF 1-125 11-71 12-53 22-50 28-47 36-28 40-08 

CSABT 30-32# 30-34 

CSCD 33-33 33-36# 

CSEXIT 33-23 33-35# 



CKACOJ 1-44 43-34 

CKOFSP 40-27 41-19# 

CKPRIV 1-122 31-5 31-44 31-50 31-78 31-90 32-59 32-65 32-72 32-81 32-89 32-95 * 

32-101 32-107 33-6 37-12 38-12 44-5 45-6 

CK3YDV 26-42 27-1 1# 

CKSYPV 1-44 16-4 17-4 39-6 

CLRPRV 1-46 16-6 

CMDALC 1-31 11 -7# 

CMDASN 1-30 8-7# 

CMDBOT 1-33 44-5# 

CMDBUF 1-114 7-23 

CMDCCL 1-139 26-127 

CMDDAT 1-29 37-5# 

CMDDET 1-32 35-5# 

CMDDLC 1-31 12-5# 

CMDDMT 1-30 25-5# 

CMDDSN 1-27 10-5# 

CMDDSP 1-30 7-44# 7-45 

CMDFMT 1-29 26-10# 

CMDFRM 1-27 32-1 14# 

CMDINI 1-32 26-a# 
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CSGTOP 


29-37 


29-48# 


29-51 


\ 


CSHDEV 


1-81 


26-91 






CSHDVN 


1-ei 


26-116 






CSIERR 


8-67# 








CSIMSl 


1-124 


28-55 






CSIMS4 


1-138 


23-82 






CSSCAN 


33-29 


33-43# 






CTRLTT 


1-77 


33-14 


34-35 




CVTBUF 


40-124 


40-148 


42-5# 




CVTTAB 


1-114 


8-7 


10-5 






32-114 


35-5 


37-5 




CVTUC 


1-113 


12-13 


15-6 




CW*50H 


1-86 


38-40 






DAJMP 


10-16# 


10-30 






DCCRD 


1-103 


39-9* 




DCCWR 


1-103 


39-1 i« 






DCTRD 


1-103 


39-8* 






DCTWR 


1-103 


39-10* 




DEADEV 


1-120 


25-77 






DEASl 


10-7 


10-20# 






DELEHT 


4-22# 


30-20* 


30-21 




DELSPC 


1-129 


28-10 




I 


DETARG 


1-142 


35-28 


35-30* 


' 


DETCHK 


5-48 


35-36# 




> 1 


DETGO 


35-13 


36-6# 






DETHD 


1-142 


5-47# 


35-16 




DETIDL 


35-38 


35-41# 


35-48 




DETJMP 


35-40 


35-42# 


35-50 




DETKIL 


5-49 


35-46# 






DEVIDL 


1-131 


30-33 


32-12 




DIVIDE 


1-126 


40-99 






DJABMS 


1-135 


35-49 




K 


DLCEMT 


1-28 


12-44 


12-64 


< 


DLMSG 


1-135 


36-26 




r 


DMTALL 


1-135 


40-76 




1 1 


DMTARG 


1-119 


23-26 


25-59 


DMTLGQ 


5-38 


5-40 


25-S7# 




DMTNLG 


4-16# 


25-9* 


25-47 


I ^ 


DMTNLQ 


5-39 


5-41 


25-S6# 


( 


DMTQHD 


5-37# 


25-16 






DMTSUB 


1-139 


26-1 U 




f 


DMYDEV 


1-48 


29-34 






DOASGN 


1-66 


11-87 


23-106 




DOMNT 


23-111 


24-S# 






DOSTOP 


1-136 


40-201 






EM*ALC 


1-41 


11-22 


12-8 




EM*ATF 


1-59 


11-66 




k , 


EMfCSE 


1-42 


13-46 




' * 


EM*DAA 


1-62 


11-59 


12-51 




EM*DET 


1-53 


35-8 






EM*DIU 


1-62 


11-69 




} < 


EM*DNR 


1-41 


26-33 






EM$FNI 


1-46 


17-10 




1 , 


EM*FOE 


1-85 


36-41 




EM* I AD 


1-59 


11-63 


12-57 




EM*ITF 


1-46 


19-19 





32-91 



32-97 



32-103 



l09 



11-12 
29-9 



12-12 
43-23 
32-115 



13-8 
44-6 



15-5 



22-8 



?5-5 



28-9 



29-8 



36-17 



36-29 



25-86* 



18-58 
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1 




EM*LDI 
EM*NFW 
EM*NID 


1-43 
1-41 
1-60 


18-57 
26-16 
30-24 






















) 


EM*NLD 


1-59 


23-8 


























EM*NLN 


1-43 


34-19 


























EM*OLO 


1-60 


40-54 
























EM*SND 


1-41 


33-45 


























EH*SSY 


1-60 


26-44 


























EM$UAR 


1-57 


14-30 






















1 


EM*UER 


1-57 


14-42 






















F 




ERRLOC 


1-52 


8-67 


U-56 


12-48 


22-45 


24-13 


28-40 
















FF 


2-9# 


























FILNAM 


1-116 


16-22 


18-34 


18-38* 


18-43 


18-52 


18-69 


18-73 


23-40 


23-45 


23-54 


23-63 








36-11 


44-15* 


44-16* 


44-17* 


44-18* 


44-19 














1 




FKILL 


1-115 


8-70 


8-97 


11-22 


11-63 


11-66 


12-8 


12-26 


12-57 


13-46 


15-27 


17-10 


f 




18-57 


18-58 


18-99 


19-19 


22-21 


22-28 


23-8 


23-15 


23-36 


23-50 


23-82 


25-24 








26-16 


26-33 


26-44 


26-56 


28-30 


28-42 


28-55 


29-43 


29-66 


29-67 


30-24 


31-8 








33-16 


33-45 


34-19 


34-37 


35-8 


35-19 


35-25 


36-33 


36-37 


36-41 


37-50 


38-50 






43-29 


44-72 


























FORCEO 


1-40 


18-47 


29-29 
























FPRINT 


1-115 


11-59 


11-69 


12-51 


14-30 


14-42 


22-48 


24-17 


2B-44 


40-54 








FSTDL 


1-69 


35-23 


























GAGMSG 


1-134 


33-107 


























GENMDN 


1-61 


40-158 
























OTRDSO 


1-119 


10-20 


11-30 


1 1 -84 


12-33 


13-18 


15-11 


22-29 


23-103 


25-28 


26-34 


29-16 








37-24 


44-14 






















) 




lATTRB 


4-12# 


16-5* 


16-35 


21-31* 


















t 


II**SZ 


1-146 


18-70 


19-13 




















\ 




II*FLG 


1-147 


16-35* 


























II*NAM 


1-147 


16-21 


17-14* 


18-66 


18-71 


18-73 


19-11 














II*NPV 


1-147 


16-39 


























II*PRV 


1-147 


16-37 






















) 




IIBUF 


1-47 


16-21 


16-35* 


16-37 


16-39 


17-14* 


18-66 


18-71 


18-73 


19-11 








ILLCMD 


1-120 


15-27 


22-28 


25-24 






















INDABT 


1-115 


40-39 


























INDERR 


1-80 


37-49* 


38-49* 
























INDSAV 
INDTSV 


1-109 
1-38 


27-60 
27-61 


























INFOMT 


1-120 


25-54 
























INGADR 


1-47 


18-63* 


19-8* 
























INGEMT 


1-47 


18-64 


19-9 




















\ 




INPADR 
INPEMT 
INS ADD 


1-46 

1-46 

15-14 


20-7* 

20-8 

16-4# 


























INSATR 


5-6 


5-7 


5-8 


5-9 


5-10 


5-11 


5-12 


5-13 


5-14 


5-15 


5-16 


5-17 






INSDEL 
INSFRE 


5-19 
15-16 
16-17 


5-20 
15-18 
19-7# 


5-21 
17-4# 


5-22 


5-23 


21-31# 














» 




INSHD 

INSNAM 

INSOPT 


5-5# 
16-11 
16-7 


21-14 

17-8 

16-30 


18-13# 
21-10# 




















1 




INSPUT 


16-48 


17-15 


20-7# 




















) 




INSTBL 
INSTBN 
INVDAT 
INVDEV 


1-146 
1-146 
1-142 
1-141 


18-62 
18-79 
37-50 
29-43 


19-7 
19-14 
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INVLDM 
INVLDN 


1-138 
1-121 


23-50 
23-15 


























INVOPT 


1-115 


12-26 


22-21 


28-30 


29-67 


35-19 


















INVTIM 
JOB COM 
JS*OFF 


1-135 
43-6 
1-61 


38-50 
43-13 
40-159 


43-23# 
























KCSIBF 
KCSIMS 
KILEMT 


1-118 

1-119 
1-136 


8-63 

8-69 

40-183 


8-81 
43-5 


8-84* 
44-59 


8-87* 


8-89 


8-102 


8-103 


8-104 












KMNCHN 


1-73 


27-58 


























L 


5-6 


5-6# 


5-7 


5-7# 


5-8 


5-8# 


5-9 


5-9# 


5-10 


5- 


-10# 


5-11 


5-ll# 






5-12 


5~i2# 


5 13 


5-13# 


5-14 


5-i4# 


5-15 


5-i5# 


5-16 


5- 


-16# 


5-17 


5-1 7# 






5-18 


5-lS# 


5-19 


5-1 9# 


5-20 


5-20# 


5-21 


5-21# 


5-22 


5- 


-22# 


5-23 


5-23# 






5-30 


5-30# 


5-31 


5-3 1# 


5-38 


5-38# 


5-39 


5-39# 


5-40 


5- 


-40# 


5-41 


5-4 1# 






5-48 


5-48# 


5-49 


5-49# 


5-56 


5-56# 


5-57 


5-57# 


5-64 


5- 


-64# 


6-7 


6-7# 


> " 




6-8 


6-S# 


6-9 


6-9# 


6-10 


6-10# 


6-11 


6-1 1# 


6-12 


6- 


-12# 


6-13 


6-13# 


■ 




6-14 


6-14# 


6-15 


6-15# 


6-16 


6-16# 


6-17 


6-17# 


6-18 


6- 


-18# 


6-19 


6-19# 






6-20 


6-20# 


6-21 


6-2 1# 






















LCONTM 
LCPUHI 
LCPULO 


1-71 
1-71 
1-71 


40-138 

40-96 

40-97 


























LD*RON 
LDBASE 
LDCLEN 


1-93 
1-94 

1-58 


23-74 
26-8D 

23-116 


25-81 
























LDDEVN 
LDDEV.X 
LDFLAG 


23-13 
1-95 
1-94 


23-46 
18-55 
23-75^s• 


24-35* 
26-66 


26-76 






















LDMNT 

LDNAME 

LDPDEV 


1-55 
1-94 
1-94 


23-80 
23-62 
25-72* 


23-89 
26-84 


25-75* 






















LDSIZE 

LF 

LF*WRT 


1-94 
2-4# 
1-112 


26-87 

7-29 

40-72 


33-48 


33-85 


40-93 


44-49 


















LINFRE 
LNPRIM 
LNUMER 


1-135 
1-86 
33-31 


35-41 
33-32 
33-34# 


33-51 
33-37 


33-121 
33-91 


40-82 




















LOFSPC 
LOGASN 
LOGCHK 


1-84 

1-121 

1-101 


40-45 
18-44 
23-21 


40-49 
23-41 
25-43 


40-53* 
26-123 


40-61* 




















LOGCLS 
LOGFLG 
LPARNT 


1-125 
1-111 
1-54 


40-154 
40-721S- 
34-41 


34-43 
























LPROG 
LPROJ 
LSECPT 


1-70 
1-70 
1-74 


40-121 
40-107 
41-25 


40-203* 
40-202* 
























LSTDL 
LSTPL 


1-69 
1-102 


35-26 
33-119 


40-84 
40-15 


40-173 
40-171 




















f ( 


LSTSL 


1-104 


33-30 


40-180 


43-27 


44-56 


















LSTSPL 


1-50 


32-54 


























LSW 


1-49 


33-36 


33-97 


33-122 


33-124 


40-60* 


40-80 














1 4 


LSW3 


1-83 


40-23 


40-33^ 


40-41* 


40-83* 


















LSW4 


1-97 


7-21 


33-103 


33-132 


40-58* 




















LSW5 


1-67 


7-15 


40-21 






















» . 


LSW6 


1-108 


7-17* 


7-34*fr 






















LSW7 


1-110 


33-101 


33-12S 






















1 


LSW9 


1-66 


40-25 


40-59* 


40-170* 


40-198* 
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( 



LUNAME 


1-70 


33-57 




LWINDO 


1-38 


40-86 




MAX SEC 


1-74 


41-26 




MINTIM 


1-74 


40-137 




MNBASE 


1-129 


28-12* 




MNBPC 


1-128 


28-8* 


28-22* 


MNFLGS 


1-128 


28-7* 


28-31* 


MNTARG 


1-138 


23-110 


26-61 


MNTCSH 


22-58 


23-99 


23-1 10# 


MNTDEV 


1-119 


22-34* 


22-41 


MNTFUL 


1-121 


24-15 




MNTLD 


22-57 


23-6# 




MNTQP 


1-129 


28-16* 




MDNARl 


1-129 


28-37 




M0NAR2 


1-129 


28-49 




MONHD 


1-129 


5-55# 


28-27 


MSGBUF 


1-134 


33-46 




MSGEND 


1-134 


33-81 




MTOPHD 


1-120 


5~29# 


22-18 


MUL32 


1-142 


38-28 


38-43 


NARGS 


5-5# 


5-6 


5-6 




5-11 


5-12 


5-12 




5-17 


5-ia 


5-18 




5-23 


5-29# 


5-30 




5-40 


5-41 


5-41 




5-57 


5-63# 


5-64 




6-10 


6-11 


6-11 




6-16 


6-17 


6-17 


NFRESB 


1-98 


32-18 




NMSGBF 


1-148 


33-114 


33-140 


NODEV 


44-20 


44-72# 




NOFIL 


1-133 


32-50 




NOFLAO 


1-120 


22-12* 


22-22* 


NOFRDL 


1-142 


36-33 




NOOPTT 


1-133 


33-16 


34-37 


NOPMGN 


1-129 


28-42 




NOTIM 


40-108 


40-118 


40~154# 


NOTON 


1-134 


33-99 




NSPFLG 


1-133 


32-39 




NUMON 


1-65 


44-31 




NUMTBl 


1-134 


33-53 




OFFEMT 


1-136 


40-204 




OFFHD 


5-63# 


40-10 




OFFNWF 


4-17# 


40-9* 


40-17 


DFFNWN 


5-64 


4X-5# 




OPRCMD 


1-31 


33-14# 




OPTLST 


1-46 


21-15 


25-17 


OTHRON 


1-137 


44-33 




OTRMNT 


1-139 


26-56 




PO*ALC 


1-44 


11-20 


12-6 


PO*BYP 


1-44 


26-14 




PO*DET 


1-53 


35-6 




PO*NFW 


1-44 


26-14 




PO*SND 


1-53 


33-43 




PAUMSG 


1-114 


7-27 




PF*IOW 


1-108 


5-56 





20 23-105 25-38* 25-42 25-49 25-65 25-76 26-36* 



40-101 

5-7 b-7 5-H t)~H 5-9 5-9 5-10 5-10 5-Jl 

5-13 5-13 5-14 5-14 5-15 5-15 5-16 5-16 5-17 

5-19 5-19 5-20 'J-20 5-21 5-21 5-22 5-22 5-23 

5-30 5-31 5-31 5-37# 5-38 5-30 5-39 5-39 5-40 

5~47# 5-48 5-48 5-49 5-49 5-55# 5-56 5-56 5-57 

5-64 6-6# 6-7 6-7 6-8 6-8 6-9 6-9 6-10 

6-12 6-12 6-13 6-13 6-14 6-14 6-15 6-15 6-16 

6-18 6-18 6-19 6-19 6-20 6-20 6-21 6-21 






41-5* 



40-11 
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^ PF*SYS i~108 5-57 

' PFCO 1-45 16-38 

► . PFSO 1-45 16-36 

» * PMBUSY 1-129 28-44 * 

POPCF 1-124 40-52 

PRGALL 1-27 40-38 

' < PRIVCO 1-45 11-20 12-6 26-14 33-43 35-6 40-66 « 

PRIVSO 1=44 40-67 

PRTDEC 1-123 11-70 12-52 22-49 28-46 36-27 41-43 



< PRTTIM 1-141 40-9c 



D 



PRTWRN 1-145 24-15 33-34 33-114 33-140 
PRVOPT 1-47 5-iS 



40-47 










16-40 


40-60 








40-175 










32-52 










32-53 










14-12* 










14-13* 


14-17 


14- 


-23* 


14-25 


14-14* 


14-15* 








15-13 










10-21 


11-38 


11- 


-85 


12-42 


26-35 


29-20 


29- 


-23* 


29-28 


36-7 










15-15 










23-32 










22-31 


24-35 


25- 


-35 




22-33 


24-37 


24- 


-38 


24-42 


24-40 


25-68 









i 

i 

14-36* ^ 



^ PUSHCF 

PVNPW 1-45 

PVON 1-67 

< QHDMSl 1-60 

QHDMS2 1-60 

R. GSIZ 1-56 

i R. GSTS 1-57 

R. NAME 1-56 

R 50 ADD 4-9# 

€ R50BUF 1-119 10-21 11-38 11~85 12-42 13-23 13-29 14-14 14-15 15-12 22-30 23-104 < 



!5~29 26-35 29-20 29-23* 29-28 29-36 37 25 44-15 
R50C0M 1-84 



R50SAV 1-116 18-30 

RDCMD 1-114 7-38 7-51 8-109 10-16 11-91 12-70 13-50 15-31 16-52 17-19 22-51 

i 23-120 25-82 28-48 28-51 29-71 30-25 30-32 31-22 31-74 31-86 31-97 32-55 

32-61 32-67 32-76 32-85 32~127 33-35 33-100 33-108 33-115 33-143 35-42 37-47 

38-47 39-19 40-29 40-62 43-45 44-51 45-9 

i REMRDB 4-S# 14-11 

REMRGN 13-35 14-7# 

RESDEV 1-107 40-34* 

i RJEMT 1-140 43-19 

RS. CRR 1-56 14-17 14-25 

RS. EGR 1-56 14-36 

< RS. GBL 1-56 14-13 14-23 

RS. PVT 1-56 14-13 

RSTVEC 39-13 39-23# 

t RUNMS 1-142 35-39 

SD*BAK 1-97 31-96 



SD«DEL 1-91 30-31 

SD*FLG 1-92 32-37 32-90 32-96 

SD*FLK 1-92 31-45 31-51 32-31 

SD*SNG 1-98 32-14 32-60 32-66 

SDfWFM 1-92 31-71 32-S 

SD*WID 1-99 32-42 32-102 32-108 

SDBU 1-97 31-94 

SDCB 1-102 29-31 

SDCBND 1-102 29-32 



< 



f R50DEL 4-10# 

R50DSK 1-121 

R50LD 1-121 -_- -- _- -^ __ 

f R50LD0 1-119 22-33 24-37 24-38 24-42 25-37 25-66 25-70 t 

R50LD7 1-121 

R50M0N 1-142 37-27 

< R50REM 4-1 1# 15-17 



i 
i 

€ 

i 

i 

i 
i 
i 
I 



1 

1 




TSKM2A 


— Keyboard command 


rout MACRO 


V05. 05 


Thursday 19- 


-Jan-89 


14; 53 


Page 


S-9 




1 




Cross reference 


table (CREF 


V05. 05) 
















» 




SDCBSZ 
SDFHD 


1-104 
1-42 


29-38 
32-49 






















S0FLAQ 


1-92 

32-66* 


30-31-«- 
32-90* 


31-45* 
32-96* 


31-51* 
32-102* 


31-71* 
32-108* 


31-96* 


32 


-8 


3S-14 


32-31 






SDFORM 


1-92 


31-53 


32-24 




















SDNAME 


1-48 


29-34 


29-36 


31-17 


















SDSFCB 


1-91 


30-29 


31-79 


31-91 


32-4 
















SDSKIP 


1-97 


31-85* 






















SEARCH 


1-114 


22-19 


28-28 


29-54 


35-17 












1 




SEGCHN 


1-38 


27-56 






















SERFLG 


1-49 


23-25* 


23-28* 


23-90* 


23-92* 


25-58* 


25- 


-61* 


40-48* 


40-50* 






SHTMSQ 


1-136 


40-91 


















! 




SJEMT 


1-140 


43-12 






















SKPDLM 


1-37 


11-35 


12-37 
















1 




SKPSPC 


1-37 
26-30 


11-13 
34-14 


1 1 -26 
34-24 


11-75 


12-14 


12-23 


12 


-32 


13-12 


18-19 






SWDALL 


33-92 


33-119# 






















SNDCOM 


33-8 


33-22# 




















SNDGN 


33-15 


33-30# 






















SNDLIN 


33-27 


34-10# 






















SNDONE 


33-97# 






















SOPALC 


1-50 


11-16 






















SOPDAT 


1-51 


37-Q 






















SOPTIM 


1-51 


3S-S 




















SPACTV 


1-131 


32-6 






















SPCF 


1-133 


32-22 


















1 




SPDLCR 


30-10 


30~29# 


















1 


SPFLG 


1-132 


32-41 


















1 




SPFLK 
SPFUL 


1-133 
1-133 


32-33 
32-20 




















SPGEMT 


1-133 


32-136* 


32-137 




















SPHLEM 


4-2S# 


32-73* 


32-74 
















1 

1 




SPLACT 

SPLALN 

SPLBAK 

SPLBKl 

SPLCHN 

SPLDEL 

SPLFLG 

SPLFRM 

SPLHD 

SPLHLD 

SPLLK 

SPLMTI 

SPLMUL 


1-136 

6-7 

6-8 

31-92 
1-72 
6-9 
6-10 
6-12 
1-130 
6-13 
6-15 

31-46 
6-16 


40-191 

31-5# 

31-90# 

31-94# 

27-57 

30-5# 

32-S9# 

31-50# 

6-6# 
32-72# 
31-44# 
31-52# 
32-65# 


44-36 

29-53 
















f 




SPLNFL 
SPLNHL 


6-11 
6-14 


32-95# 

32-8.1 # 


















1 




SPLNRW 


6-17 


32-107# 


















I 




SPLPND 


1-137 


44-38 


















> 




SPLSKP 
SPLSNG 


6-lS 
6-19 


31-78# 
32-59# 






















SPLSTA 


vj ca.V/ 


32-4# 




















SPLWID 


6-21 


32-101# 






















SPNARO 


1-134 


32-44 






















SPNBB 


31-80 


31-93# 






















SPNBSY 


30-30 


30-33# 


31 "93 

















I 

f 

32-37 32-42 32-60* . 

i 
i 



25-10 25-21 



i 
i 
I 

i 
i 
I 

( 

i 
< 
( 



I 

i 
i 



I 

TSKM2A — Keyboard command rout MACRO V05. 05 Thursday 19-Jan~S9 14:53 Page S-IO 



I, 



> I 



Cross reference table vCREF V05. 05) 



SPNHEM 


4-34# 


32-32* 


32-83 














SPOLGO 


31-73 


32~135# 
















SPSNG 


1-131 


32-16 
















SPWFM 


1-131 


32-10 
















SPWIDE 


1-134 


32-46 
















SQZDEV 


4-5# 


26-37^J 


26-74 


26-122 












STPASK 


1-137 


44-43 
















3TPFLG 


1-72 


40-19 


40-09 


40-164 


44- 


-55* 


45- 


-7* 




SWPCHN 


1-38 


27-55 
















SYFLVC 


27-24 


27-55# 
















SYSDAT 


1-105 


37-46* 
















3VTIMH 


1-105 


33-4 5 i^ 
















3YTIML 


1-105 


3S-46*- 
















TAB 


2-8# 


















TALEMT 


1-68 


22-42 
















TIMSPL 


4-40# 


40-193 
















TIMUP 


40-94 


40-107# 
















TKISEC 


1-106 


40-98 
















TM*SA1 


1-37 


41-40 
















TM*SA2 


1-37 


41-48 
















TM*SA3 


1-37 


4i-42 
















TM$SA4 


1-37 


41-44 
















TMIDLH 


1-58 


39-29 
















TMIOH 


1--5S 


39-26 
















TMIDWH 


1-55 


39-28 
















TMSWPH 


1-58 


39-27 
















TMSWTH 


1-58 


39-25 
















TMTOTH 


1-55 


39-23 
















TMUSRH 


1-55 


39-24 
















TOTON 


1-72 


40-199 
















TSKM2A 


l-5# 


1-26 
















UFORM 


1-79 


32-116 


32-120 


32-123 












VLDSYS 


1-145 


23-6 
















WLDNAM 


1-42 


2-1 1# 


18-24 


18-69 


18- 


-71 








XAREA 


1-115 


14-16 


14-24 


14-37 


23- 


-91 


31- 


-18 


31-27 




40-115 


40-122 


40-149 


40-193 


44- 


-19 


44- 


-21 




YELEMT 


1-135 


33-7* 


33-21* 


33-105 


33- 


-109 


33- 


-130 


33-134 
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. . . CMO 
. . . CMl 

. . . CM2 



CMS 



. . . CM6 
. . . CM7 
. CLOSE 
. CRRG 
. CSIGE 
. CSISP 
. CSTAT 
. ELRG 
. ENTER 
FPROT 
. GTLIIM 
. LOOKU 
. PRINT 



. READW 
. TTYIN 
. TTYOU 
. TWAIT 
. WRITW 
CMDDEF 



FAB OR T 



H-OJ 

23-91 
44-21 
14-16 



31- 
40- 
40- 



■32 
■56 
■149 



31-21 



30- 

32- 
35- 
40- 
14- 



■33 
■27 
■39 
117 
16 



FERR 

FWARN 

TBLDEF 

TBLEND 

TSX-Plu 

usTSX-P 

PlusTSX 



31-27 
i-20# 
1-16# 
l~i8# 
1-16# 
l-20# 
1-16# 
1-21# 
i-22# 
1-19# 
1~20# 
1 —r>rMk 

A. fi^ w ri 

32-10 
32-53 
41-42 
1-17# 
1-17# 
1-17# 
1~17# 
1-21# 
3-47# 
5-17 
5-41 
6—1 3 
3-15# 
ie-57 
26-16 
33-16 
43-29 
3-4# 
3-23# 
3-35# 
3-6 1# 
sTSX-Plu 
lusTSX-P 
-PlusTSX 



S— 63 
31-18 

14-24 

31-32 

40-56 

40-149 

31-38 

7-27 
31-18 
32-33 
35-41 
40— 1 22 
1 4-24 
31-32 
31-21 
14-16 
31-11 

8-63 
44-21 
14-37 
31-18 
23-91 
41-48 

32-12 

33-99 

41-44 

31-32 

7-28 

32-27 

40-193 

31-27 

5-6 

5-18 

5-48 

6-14 

8-70 

18-58 

26-33 

33-45 

44-72 

1 1-59 

24-15 

5-5 

5-24 

sTSX-Plus 

lusTSX-Pl 

-PlusTSX- 



8-63 
31-27 

14-37 
31-32 
40-56 
40-193 
31-39 
7-50 
31-20 
32-36 
35-49 
40-149 
14-37 
31-34 
31-38 
14-24 



40-49 
7-27 
32-16 
33-107 
44-33 
40-56 
44-44 
32-36 

31-34 

5-7 

5-19 

5-49 

6-15 

8-97 
18-99 
26-44 
34-19 

11-69 

33-34 

5-29 

5-32 

-PlusTSX- 



31-11 
31-32 

23-91 

31-32 

40-56 

44-19 

36—13 

11-71 

31-27 

32-39 

36—1 1 

40-193 

40-193 

40-56 

31-39 



Thursday 19-Jan -89 14: 53 Page M-1 



31-11 
31-34 

23-91 

31-34 

40-115 

44-19 

40—150 

12-53 

31-32 

32-41 

36-26 

41-40 

40-122 
36-13 



40-115 

7-50 
32-20 
35-39 
44-38 



40-93 

40-149 

5-8 

5-20 

5-56 

6-16 
11-22 
19-19 
26-56 
34-37 

12-51 

33-114 

5-37 

5-42 

■PlusTSX-Plu 



44-19 
11-71 
32-22 
35-41 
44-43 



TSX 

usTSX-PlusTSX-PlusTSX-P 
PlusTSX-PlusTSX-PlusTSX 



5-9 

5-21 

5-57 

6-17 
11-63 
22-21 
28-30 
35-8 

14-30 
33-140 
5-47 
5-50 
sTSX 

lusT SS<H 
-Plu 



36-11 

31-18 

31-34 

40-115 

44-21 

44—25 

14-16 

31-34 

32-44 

36-28 

41-42 

40-149 
40-150 



12-53 
32-33 
35-49 



5-10 

5-22 

5-64 

6-18 

11-66 

22-28 

28-42 

35-19 

14-42 



41—48 
40-49 

31-18 
31-34 
40-122 



14-24 

32-6 

32-46 

40-49 

41-44 



44 



32-39 
36-26 



5-11 
5-23 
6-7 
6-19 
12-8 
23-8 
28-55 
35-25 

22-48 



41-48 
40-56 

31-18 
31-34 
40-122 



14-37 
32-10 
32-50 
40-56 
44-19 



25-54 
32-41 
36-28 



5-12 

5-30 

6-8 

6-20 

12-26 

23-15 

29-43 

36-33 

24-17 



41- 
40- 



48 
•115 



31-27 
36-11 
40-122 



22-50 
32-12 
32-52 
40-88 
44-21 



28-47 
32-44 
40-88 



5-13 

5-31 

6-9 

6-21 

12-57 

23-36 

29-66 

36-37 

28-44 



41-48 
40-122 

31-27 
36-11 
40-122 



23-91 
32-16 
32-53 
40-91 
44-33 



30-33 
32-46 
40-91 



5- 


-14 


5- 


-38 


6- 


-10 


13- 


-46 


23- 


-50 


29- 


-67 


36- 


-41 



40-54 



40-149 

31-27 
40-49 
40-149 



25-54 
32-20 
33-99 
40-93 
44-38 



31-20 
32-50 
40-117 



5-15 
5-39 
6-11 

15-27 
23-82 
30-24 
37-50 



44-19 

31-27 
40-49 
40-149 



28^47 

32-22 

33-107 

40-115 

44-43 



32-6 

32-52 

41-40 



5- 


-16 


5- 


-40 


6- 


-12 


17- 


-10 


25- 


-24 


31- 


-8 


38- 


-50 



5-55 5-63 6-6 
5-58 5-65 6-22 

-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-Pl 
Computer Systems, Inc. SX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlosTSX- 

sTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTSX-PlusTS 
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